Truco de Excel: Cambiar a mayúsculas en Excel

Autor: Roberto Herrero.   Fecha: 14/12/2002.   Lecturas: 20843
[+] del.icio.us | [+] menéame!

Incluimos el código de una macro para cambiar a mayúsculas todo el contenido (si es texto) a una celda en Excel.

Continúa...

El código es:

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