From your post, it isn't clear if you want the Z stripped as well as
the leading 0 changed to D. I'll assume its the later and that your
example was in error. If so, maybe the following can help:

Sub ZerosToDs()
Dim cl As Range
Dim s As String

For Each cl In Selection.Cells
s = cl.Value
If s Like "053Z*" Then
cl.Value = "D" & Mid(s, 2)
End If
Next cl
End Sub

Select the column (or part thereof) you want to change then invoke
this and it should work.

Hth

-John Coleman

On Apr 2, 3:37 pm, "excelnut1954" wrote:
I have a column of numbers, many that start with 053Z. They don't
all have the exact same number of digits. What I'm trying to do is to
go down the list, and change all those numbers starting with 053Z,
remove the zero, and put a D at the begining, thus it would look like
D53Z then the rest of the number.

Example:
If a number is 053Z123456, then the macro would make it D53123456.

I tried using the recorder, but when I use the macro down the column,
it makes every number exactly the same as the cell I used when I
recorded it.

I would appreciate any help.
Thanks,
J.O.