Отфильтровать слова с заглавными буквами макросом

Sub ONLY_CAPS()
Dim bFlag As Boolean, oCell As Range, sStr As String, iAscii As Integer
Application.ScreenUpdating = False
For Each oCell In UsedRange.Rows.Count
    bFlag = False
    sStr = Split(oCell)(0)
    For i = 1 To Len(sStr)
        iAscii = Asc(Mid(sStr, i, 1))
        bFlag = (iAscii >= 192 And iAscii <= 223) Or (iAscii >= 65 And iAscii <= 90)
        If Not bFlag Then Exit For
    Next
    oCell.Rows.Hidden = Not bFlag
Next
Application.ScreenUpdating = True
End Sub

Sub ONLY_CAPS()
'Ñîðòèðóåò îñòàâëÿÿ ÿ÷åéêè â êîò ïåðâîå ñëîâî íàïèñàíî ñòðî÷íûìè áóêâàìè
Dim bFlag As Boolean, oCell As Range, sStr As String, iAscii As Integer
Application.ScreenUpdating = False
For Each oCell In ActiveSheet.UsedRange.Columns(1).Cells
    bFlag = False
    sStr = Split(oCell)(0)
    For i = 1 To Len(sStr)
        iAscii = Asc(Mid(sStr, i, 1))
        bFlag = (iAscii >= 192 And iAscii <= 223) Or (iAscii >= 65 And iAscii <= 90)
        If Not bFlag Then Exit For
    Next
    oCell.Rows.Hidden = Not bFlag
Next
Application.ScreenUpdating = True
End Sub

Sub ONLY_CAPS()
Dim oCell As Range, sStr As String
Application.ScreenUpdating = False
For Each oCell In ActiveSheet.UsedRange.Columns(1).Cells
    sStr = Split(oCell)(0)
    oCell.Rows.Hidden = (sStr <> UCase(sStr))
Next
Application.ScreenUpdating = True
End Sub