Need macro or function to count words written in UPPERCASE

OhioRuss,

Some one is concerinig about what you don't even think of...

This is to allow multi type of data source.

You can use like
=CountUWord(A1,D1:D2,"ABCD Efg",D6:D7,{"Axv","BBC 456"})

Function CountUWord(ParamArray x()) As Long
    Dim e, r
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "\b[A-Z]{3,}\b"
        For Each e In x
            If (TypeName(e) = "Range") + (TypeName(e) = "Variant()") Then
                For Each r In e
                    CountUWord = CountUWord + .Execute(r).Count
                Next
            Else
                CountUWord = CountUWord + .Execute(e).Count
            End If
        Next
    End With
End Function