try this
Sub addzerostotextcells()
For Each c In Selection
If Len(c) < 5 Then c.Value _
= c & Application.Rept("0", 5 - Len(c))
Next
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"William" wrote in message
...
I have a colomn with 2-digits (currently text format):

03
04
10
20

. . . etc.

I'd like to do a find and replace which adds three zeroes to the end, so
that I get this:

03000
04000
10000
20000

Is it possible?

Thanks
--
William