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