Trim all but the first 5 characters in cell

[Annette]

How would I write the trim to leave only the first five characters in a
column?

 

[Tom Ogilvy]

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

 

[Annette]

that does the trick .. thanks!

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