‘Método que devuelve el valor
literal en mayúsculas de la celda (s) seleccionada E. hola ->HOLA
Option
Explicit
Public
Sub Mayusculas()
Dim c As Range
For Each c In Selection
c.Value = StrConv(c.Value, vbUpperCase)
Next c
End Sub