Как оставить только буквы и цифры в колонке?

Public Function SanitizeCharDigit(ByRef rng As Range) As String
    Dim pattern As String
    Dim replace As String
    Dim RegExp As Object    'Для регулярных выражений

    pattern = "[^A-Z\d]"
    replace = ""

    Set RegExp = CreateObject("VBScript.RegExp")
    With RegExp
        .Global = True    'Находим ВСЕ совпадения или только первое
        .IgnoreCase = True    'Учитываем ли регистр?
        .MultiLine = True    'Может ли паттерн попадать на разрывы строк?
        .pattern = pattern    'Выражение
    End With

    On Error Resume Next
    SanitizeCharDigit = RegExp.replace(CStr(rng.Value), replace)    'Поиск и замена

    Set RegExp = Nothing    'Очистка памяти от ненужного мусора

End Function