Нахождение ячеек с прописными буквами и цифрами

[Azz100]

Необходимо найти и выделить в определенном столбце ячейки, соответствующие определенным условиям:
Эти ячейки содержат только прописные буквы и цифры. Одновременно. Если только цифры или только прописные буквы, то не считается. Строчные буквы, пробелы и прочие знаки содержащиеся в ячейке, также не соответствуют условиям.
Соответственно, найти и отсортировать, либо залить каким-нибудь цветом.

Пожалуйста, помогите. Небольшой пример прилагаю.

[kuklp]

Public Sub www()
    Dim c As Range
    For Each c In [a1].CurrentRegion.Cells
        If Not Symbols(c) Then _
           If Not IsNumeric(c) Then If UCase(c) = c _
           Then If c Like "*#*" Then c.Interior.ColorIndex = 3
    Next
End Sub
Function Symbols(ByVal txt As String) As Boolean
    Dim St$, i&
    Symbols = False
    St = "~!@#$%^&*= ,.|`'"""
    For i = 1 To Len(St)
        If InStr(1, txt, Mid(St, i, 1)) > 0 Then Symbols = True: Exit Function
    Next
End Function

[MCH]

Сергей, данный код зальет и просто прописные буквы, без цифр

[kuklp]

Ага. Исправил.

[Azz100]

Спасибо огромное, все хорошо работает.