Cambiar minusculas a mayusculas en excel macro

https://www.youtube.com/watch?v=vxGXA2-odyg

Sub cambiarseleccion()
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