excel vba test if character is uppercase code example

Example: excel vba check if string entirely uppercase

'Two separate VBA functions to check if string is ENTIRELY uppercase:

Function IsUpper(s) As Boolean
    IsUpper = Len(s) And Not s Like "*[!A-Z]*"
End Function

Function IsUpper(s) As Boolean
    IsUpper = UCase(s) = s
End Function

'If you have changed Excel VBA's default for comparing text values to:
'Option Compare Text
'then use this third function instead:

Function IsUpper(s) As Boolean
    With CreateObject("VBScript.RegExp")
        .Pattern = "^[^a-z]*$"
        IsUpper = .test(s)
    End With
End Function