Open Excel Sheet
Press Alt + F11 Key
Go to the Insert Menu and Click on new Module
in New Module copy and paste the above VBA code and save.
Now Press Alt + F8 and new windows will open which is shown in below figure,
in that windows you will ask to enter a key to create shortcut for Paste Special
Enter a letter in the box.
Sub ChangeCase()
Dim Rng As Range
For Each Rng In Selection.Cells
If Rng.HasFormula = False Then
Rng.Value = UCase(Rng.Value)
End If
Next Rng
End Sub
Press Alt + F11 Key
Go to the Insert Menu and Click on new Module
in New Module copy and paste the above VBA code and save.
Now Press Alt + F8 and new windows will open which is shown in below figure,
in that windows you will ask to enter a key to create shortcut for Paste Special
Enter a letter in the box.
Sub ChangeCase()
Dim Rng As Range
For Each Rng In Selection.Cells
If Rng.HasFormula = False Then
Rng.Value = UCase(Rng.Value)
End If
Next Rng
End Sub