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?