The formula below was working ok but after some other changes, ....it's doing weird stuff to column A (adding "t" to the beginning and "xt" to the end of whatever is in column A whenever it finds more than 25 characters in a cell in Column H.
' For Each cell In Range("H:H").CurrentRegion 'Edit to desired range
' cell.Value = Left(cell, 25)
' Next cell
Is there a better way?