Macro para cambiar a mayúsculas con una tecla.

Hoy Flavia me comentó que ella usaba una combinación de teclas para cambiar a mayúsculas unas celdas de Excel. Sabía que se podía en Word, con Shift-F3. Revisando en el sabio Google, encontré esta liga que tiene una macro para hacerlo. Modifiqué la macro para que pregunte qué queremos hacer: mayúsculas, minúsculas o nombre propio.

https://groups.google.com/forum/#!topic/microsoft.public.excel/xP5tEw4Jsb0

Aquí están las instrucciones resumidas para hacerlo:
a) Activen el archivo de macros personales. Vayan a Ver – Macros – Grabar / View – Macros – Record.
b) Digan que van a grabar la macro12345 en el nombre, y la guardan en el archivo de macros personales.
c) Den click en cualquier celda.
d) Detengan la grabación en el cuadrito azul que aparece en la parte inferior izquierda de la pantalla de Excel.
e) Opriman Alt F11.
f) Si no aparece nada, opriman Ctrl R para ver el navegador de archivos en el editor de macros.
g) Den doble click en el archivo de macros personales que dice VBAProject Personal.
h) Den doble click en los módulos o modules.
i) Den doble click en el Módulo1 o Module1.
j) Copien y peguen este código de macro que pongo abajo en el cuadro que les apareció. Necesitan copiar desde Sub hasta End Sub.

Sub Cambiar_a_Mayúsculas()
    Dim v_Celda As Range
    Dim v_cambio As String
    v_cambio = InputBox("¿<M>ayúsculas, m<I>núsculas o nombre <P>ropio?")
    For Each v_Celda In Selection
        Select Case UCase(Left(v_cambio, 1))
            Case "M"
                v_Celda = UCase(v_Celda)
            Case "I"
                v_Celda = LCase(v_Celda)
            Case "P"
                v_Celda = Application.WorksheetFunction.Proper(v_Celda)
        End Select
    Next v_Celda
End Sub

k) Opriman Alt F8.
l) Den click en Cambiar_a_Mayúsculas.
m) Den click en Opciones / Options.
n) Seleccionen una A mayúscula para que corran la macro con Ctrl Shift A (o la letra que quieran).
ñ) Den click en donde dice VBAProject Personal y opriman el disco azul que aparece en la parte superior de la pantalla, para grabarlo.

Listo.

Cierren todo y ya están listos para oprimir Ctrl Shift A y cambiar a mayúsculas lo seleccionado.