サンプルマクロは、アクティヴシートのすべての使用セル内の数字を削除します。

Sub Sample()

    Dim myCell As Range
    Dim i As Integer
    
    For Each myCell In ActiveSheet.UsedRange
        For i = 0 To 9
            With myCell
                .Replace CStr(i), vbNullString
                .Replace StrConv(CStr(i), vbWide) , vbNullString
            End With
        Next
    Next

End Sub