Just record this custom formatting. Modified to remove selections.
Sub Macro3()
'
' Macro3 Macro
' Macro recorded 6/1/2004 by Don Guillett
'

'
Range("C1:C200").NumberFormat = "00000"
End Sub

--
Don Guillett
SalesAid Software

"C3" wrote in message
...
How to make a macro who will check one entire column (etc. A) for numbers
with 4 digits and less and change it to a 5 digits numbers.

Example:

499 to 00499
1480 to 01480

and 5 digits number leave unchanged.


Thanks!