Macro to remove Leading 0s

Try this. If it works then please mark the thread as "Solved"

Sub ptest()
Dim i As Integer
Dim shtTest As Worksheet
Set shtTest = ThisWorkbook.Worksheets("Sheet1")
For i = 1 To shtTest.UsedRange.Rows.Count
    Do While VBA.Left(shtTest.Range("A" & i), 1) = "0"
        shtTest.Range("A" & i) = VBA.Mid(shtTest.Range("A" & i), 2, VBA.Len(shtTest.Range("A" & i)) - 1)
    Loop
Next
End Sub