Sub convertUpperCase() Dim Rng As Range For Each Rng In Selection If Application.WorksheetFunction.IsText(Rng) Then Rng.Value = UCase(Rng) End If Next End Sub
VBA Macro code to Convert to Upper Case in Excel
Select the cells and run this code. It will check each and every cell of selected range and then convert it into upper case text.