Удаление нулей в начале числового (текстового) значения

Sub SPG_del()
Dim a As Range, v(), i&, j&
  With CreateObject("vbscript.regexp")
    .Pattern = "(^|-)0+"
    .Global = True
    For Each a In Cells.SpecialCells(xlCellTypeConstants, xlTextValues).Areas
      If a.Count > 1 Then
        v = a.Value2
        For j = 1 To UBound(v, 2)
          For i = 1 To UBound(v)
            v(i, j) = .Replace(v(i, j), "$1")
          Next
        Next
        a.Value2 = v
      Else
        a.Value2 = .Replace(a.Value2, "$1")
      End If
    Next
  End With
End Sub

Sub SPG_del()
Dim a As Range, v(), i&, j&
With CreateObject("vbscript.regexp")
    .Pattern = "(^|-)0+"
    .Global = True
    For Each a In Cells.SpecialCells(xlCellTypeConstants, xlTextValues).Areas
        If a.Count > 1 Then
            v = a.Value2
            For j = 1 To UBound(v, 2)
                For i = 1 To UBound(v)
                    v(i, j) = .Replace(v(i, j), "$1")
                Next
            Next
            a.Value2 = v
        Else
            a.Value2 = .Replace(a.Value2, "$1")
        End If
    Next
End With
End Sub

For Each a In Selection.Areas

Private Sub Del_PrefixNull()
    Dim ws As Worksheet, r As Range, a, t, i&, c&
    Set ws = ActiveSheet 'Можно указать другой рабочий лист
    Set r = Intersect(ws.Columns("Z"), ws.UsedRange.EntireRow)    
    a = r.Value
    For i = 1 To UBound(a)
        t = a(i, 1)
        While t Like "0*"
           c = c + 1
           t = Mid(t, c + 1)
        Wend
        a(i, 1) = t: c = 0
    Next
    r.Value = a
End Sub

Sub primer()
    Dim text$
    text = "000qwerty"
    text = Trim(Replace(text, 0, " "))
    MsgBox text
End Sub

Sub primer()
    Dim i&
    Const text = "000qwerty000"
    For i = 1 To Len(text)
        If Mid(text, i, 1) <> 0 Then Exit For
    Next
    MsgBox Mid(text, i)
End Sub

Private Sub Del_PrefixNull2()
    Dim r As Range, t
    For Each r In Range("Z22:Z23")
        t = r.Value
        While t Like "0*"
           t = Mid(t, 2)
        Wend
        r.Value = t
    Next
End Sub