how do i eliminate leading 0 in a text cell

[Guest]

I have ID numbers that are alpha numeric. Some are all numeric formatted as
text, others are actual alpha numeric combinations. Most all have leading
"0s". I want to easily eliminate them.

 

[Dave Peterson]

Select the range
edit|replace
what: 0
with: 0
replace all

 

[Guest]

Enter this macro:

Sub zeroplucker()
For Each r In Selection
If Left(r.Value, 1) = "0" Then
Do
r.Value = Right(r.Value, Len(r.Value) - 1)
If Left(r.Value, 1) <> "0" Then
Exit Do
End If
Loop
End If
Next
End Sub

Then select the cells you want to fix and run the macro.