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?

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

--
Regards,
Tom Ogilvy


"jerry chapman" wrote in message
...
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?