excel vba string uppercase code example

Example 1: 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

Example 2: excel vba to upper case

Dim sText As String
sText = "Run, forrest run"
MsgBox StrConv(sText, vbProperCase)   ' Run, Forrest Run
MsgBox StrConv(sText, vbLowerCase)    ' run, forrest run
MsgBox StrConv(sText, vbUpperCase)    ' RUN, FORREST RUN
MsgBox UCase(sText)                   ' RUN, FORREST RUN