Trim all but the first 5 characters in cell
that does the trick .. thanks!
"Tom Ogilvy" wrote in message
...
Dim rng as Range, cell as Range
With Activesheet
set rng = Intersect(.usedRange,.columns(5)).Cells
End With
for each cell in rng
cell = Left(cell.Text,5)
Next
--
Regards,
Tom Ogilvy
"Annette" wrote in message
...
How would I write the trim to leave only the first five characters in a
column?
|