Cambiar texto de mayusculas a minusculas o al reves en Excel 2007 con macros

en este ejemplo explicare como pasar un texto de mayuscula a minuscula, y le asignaremos un atajo de teclado como en los ejemplos anteriores que he posteado.
Lo que hacemos primero es abrir una hoja de Excel y vamos a Vista->Macros->Grabar nueva macro.

Elegimos un nombre podemos ponerle Upper_to_Lower

y en metodo abreviado es el atajo de teclado que vamos a usar para llamar a la macro.
Aceptamos y detenemos la grabacion (podemos ver que abajo hay un boton de Stop, le damos click y detenemos la grabacion).

Ahora presionamos ALT+F11 para abrir el Editor de Visual Basic. Una vez aqui abrimos la carpeta Modulos y damos doble click en Modulo 1.

les aparecera una ventana con un texto como este:

Sub Upper_to_Lower()
'
' Upper_to_Lower Macro
' by XSaint
'
' Acceso directo: CTRL+x
'
End Sub

como ven aqui solo contiene comentarios, no tiene codigo. Lo que vamos a hacer es implementar esta macro con el siguiente codigo. Para esto nos ubicamos una linea antes de End Sub y ponemos este codigo:

stone=ActiveCell.Value
If VarType(stone)=8 Then
ActiveCell.Value=UCase(stone)
End If
ActiveCell.Offset(1,0).Select 

quedando asi:

Cerramos el Editor y automaticamente regresamos al Excel que dejamos abierto. Ahora que la macro ya quedo implementada podemos utilizarla.
Ahora si queremos pasar de minusculas a mayusculas hacemos todos los pasos que hicimos anteriormente, cambiando el nombre de la macro y el atajo de teclado que puede ser la combinacion de teclas que deseen menos el Ctrl+x que pusimos arriba.
y el codigo que van a poner es este:

basement = ActiveCell.Value
If VarType(basement) = 8 Then
ActiveCell.Value = LCase(basement)
End If
ActiveCell.Offset(1, 0).Select

como ven se parece mucho al que implementamos anteriormente salvo el metodo que estamos llamando que en este caso es LCase.
y podemos ver como queda.