Changing data in a column

[jerry chapman]

I would like to write a macro to change all the used entries in column A
such that only the right most 5 characters are displayed for each entry.
What would such a macro look like?

 

[Tom Ogilvy]

Sub Right5()
Dim rng as Range, cell as Range
Set rng = columns(1).specialCells(xlConstants)
for each cell in rng
cell.Value = right(cell.Value,5)
Next
End Sub