format the selected area as TEXT first and then use.
Sub removetextleaveleadingzero()

For Each c In Selection
c.Value = Left(c, Len(c) - 5)
Next

End Sub

--
Don Guillett
SalesAid Software

"Leslie" wrote in message
...
I have a report with sub-totals in Excel 2003 and I have copied the
sub-totals as a paste special values to a new spread sheet and want to
remove
the word total and keep a leading zero that is part of our Part Numbers.
is
there an easy way to do that? Here's an example cell
Befo
03010042 Total
After I want this:
03010042
When I do a find and replace it removes the leading 0 even with the column
set as a text column.