Macro to remove Leading 0s

[JimmiOO]

I have been using the below code to remove all my leading 0s, I have now run into a little problem.

The problem i have is once i have ran this macro to remove the leading 0s it auto formats the cells to numbers and one of my spread sheets is not picking up the numbers, is there away to adjust this code so i keep the original text format for my column?

Sub ptest() 
With Sheets("Sheet1").Columns("A:A")
 .NumberFormat = "0"
 .Value = .Value
 End With
 End Sub