Macro mayusculas

Hace unos días un compañero de trabajo me pregunto como podría hacer en Excel que al escribir en una celda en ella el texto solo fuera en mayúsculas (dado que el busco por todos lados en los menues y no encontro nada).

Como resultado obtuve el siguiente macro que consta de dos partes el código que efectúa las acciones y una línea que se pone en la pagina donde haremos que la(s) celda(s) se escriban en mayúsculas.

' este codigo se coloca en el evento Worksheet_Change de la hoja1 por ejemplo

' /**********************************************

Private Sub Worksheet_Change(ByVal target As Range)

MAYUSCULAS ActiveCell.Address, ActiveCell.Value, target

End Sub

' este otro fragmento se coloca en un modulo cualesquiera

'//***********************************

Sub MAYUSCULAS(Ubicacion As String, valor As String, target As Range)

Select Case target.Address

' si se desea que mas celdas tengan el efecto solo se agregan en case separadas por comas

Case "$C$3", "$C$4", "$C$5", "$C$6", _

"$D$3", "$D$4", "$D$5", "$D$6":

valor = target(1).Value

Ubicacion = target(1).Address

Range(Ubicacion).Value = UCase(valor)

End Select

End Sub

- Ahora ya se que si existe una función en llamada Mayusc("Texto") , pero bueno sirvió de ejercicio :)

Chrome

Chrome es la opción de Google en el mercado de los navegadores web, que a decir verdad es una muy buena opción, tengo instalados en mi PC los otros  tres navegadores lideres del mercado IE, Mozilla  Firefox, y Opera, pero Chrome entre estas cuatro opciones es el que mejor desempeño ha tenido, es el que mas rápido visualiza las paginas web y en el que menos tengo que esperar para ver un video en youtube, no tiene soporte para tantas opciones configurables como con Mozilla, pero esperemos  ha que mejore un poco mas pues promete y mucho.