Give this a try...

Sub AddZero()
Dim X As Long
Dim LastRow As Long
With Worksheets("Sheet3")
LastRow = .Cells(Rows.Count, "W").End(xlUp).Row
For X = 2 To LastRow
With .Cells(X, "W")
.Value = Left(.Value, 1) & "0" & Mid(.Value, 2)
End With
Next
End With
End Sub

Rick


"Little Penny" wrote in message
...
I'm looking for a macro that will add a zero of the first character in
column starting in the row 2 (W2 to Last row with data).

Example:

This:

aaaaaaa
bbbbbb
cccccc

Would look like:

This

a0aaaaaa
b0bbbbb
c0ccccc



Little Penny