Converts lower case to upper case in cell selection. Macro to Change All Text in a Range to Uppercase Letters

PHOTO EMBED

Wed Sep 08 2021 04:53:32 GMT+0000 (UTC)

Saved by @Darkleech #vba

Sub ConvertToUppercaseText() 'Converts lower case to upper case in cell selection. Macro to Change All Text in a Range to Uppercase Letters
    Dim Rng As Range
    For Each Rng In Selection.Cells
        If Rng.HasFormula = False Then
             'Use this line for UpperCase text; change UCase to LCase for LowerCase text.
            Rng.Value = UCase(Rng.Value)
        End If
    Next Rng
End Sub
content_copyCOPY