Just format the selection as TEXT and use this
Sub insertzero()
For Each c In Selection
If Len(c) = 4 Then c.Value = "0" & c
Next
End Sub

"Lowell B. Copeland" wrote in message
...
I need to write a small macro that will accomplish the
following. I am working with a column of numbers (as text)
they are zip codes. The zipcodes that begin with zero have
had their starting zero removed by the program in which
they were initially stored. I need to insert a zero in
front of any zipcode that has only 4 characters. Here is
what I am currently doing in an active cell like [2345]

[F2] to go into edit mode
[Home] to move to the front of the string
[0] to insert the "0" at the front of the string
[Enter] to go down to the next cell.

I want to create a keystroke macro that is faster

Any ideas.

Thanks Lowell