Veremos una sencilla macro que nos sirve para pasar automáticamente la celda activa a mayúsculas o minúsculas.

Macro para pasar a mayúsculas

El código a insertar para pasar a mayúsculas la celdas activa es el siguiente:

Sub mayusculas()
ActiveCell = UCase(ActiveCell)
End Sub

Macro para pasar a minúsculas

El código a insertar para pasar a minúsculas la celdas activa es el siguiente:

Sub minusculas()
ActiveCell = LCase(ActiveCell)
End Sub