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
Preview:
downloadDownload PNG
downloadDownload JPEG
downloadDownload SVG
Tip: You can change the style, width & colours of the snippet with the inspect tool before clicking Download!
Click to optimize width for Twitter