Pasar de Minusculas a Mayusculas en Excel

Comando para pasar de Minisculas a Mayusculas en Microsoft Excel

Sub Mayusculas()Dim c As Range
For Each c In Selectionc.Value = StrConv(c.Value, vbUpperCase)Next c
End Sub