Sub LeadingZeros(ByRef rng As Range, ByVal zeroes_count As Integer, _
Optional ByVal other_char As String = "0")
Dim zeros As String
zeros = ""
Dim iz As Integer
For iz = 1 To zeroes_count
zeros = zeros & other_char
Next iz
rng.Cells.NumberFormat = zeros
ReloadValue rng
rng.EntireColumn.AutoFit
On Error Resume Next
Dim txt As Variant
Dim area As Range
For Each area In rng.Areas
Dim c As Range
For Each c In area.Cells