for each cell in selection
cell.Value = "'" & Right(cell.Text,3)
Next

This assumes the zeros are not produced using a custom format.
If that is the case, just change the custom format.

--
Regards,
Tom Ogilvy


"Gsurfdude" wrote in message
...
Hello,

How do I change data in a column via VBA. Here's what I am referring to:
In
column A I have data that looks like this
0001
0002
0003

I need to take off the leading 0 so it looks like this:
001
002
003

Any help would be appreciated !

Developer