Найти ячейки содержащие спецсимволы

[Azz100]

В столбце находятся некторые данные. Все данные строго в текстовом формате. Специмволы, это все символы кроме a-z, 0-9 и символа нижнего подчеркивания _. Например- *?;:$%@^#%& +-()пУ.
Кодировка может быть разной. Необходимо найти ячейки, содержащие такие символы, и залить их каким-нибудь цветом. Либо наоборот, залить не содержащие.
Можно ли это сделать с помощью формул? Как это сделать при помощи макроса?

[doober]

Функция возвращает массив с порядковым номером плохих символов в строке

Public Function Stop_Symbol(S)
    Dim X() As Integer
    ReDim X(0)
    bRes = False
    Set RegExp = CreateObject("VBScript.RegExp")
    RegExp.Global = True
    RegExp.IgnoreCase = True
    RegExp.Pattern = "[^a-z_0-9]"
    bRes = RegExp.test(S)
    If bRes Then
        Set oMatches = RegExp.Execute(S)
           ReDim X(oMatches.Count - 1)
        For n = 0 To oMatches.Count - 1
        X(n) = oMatches(n).FirstIndex + 1
        Next
    End If
 Stop_Symbol = X
End Function