EXCEL MAYÚSCULA A MINÚSCULA

ESTA CLASE PERMITIRÁ EN EL EXCEL CAMBIAR DE MAYÚSCULA A MINÚSCULA, RECUERDA TIENES QUE PONERLO EN UNA MACRO PERSONAL
RECUERDA PONERLO EN UNA MACRO '________________________________________________________________

Sub Cambiar_de_Mayúsculas_a_Minúsculas()
dato = ActiveCell.Value
If VarType(dato) = 8 Then
ActiveCell.Value = UCase(dato)
End If
ActiveCell.Offset(1, 0).Select
'
' Cambiar_de_Mayúsculas_a_Minúsculas Macro
' CAMBIA DE MAYUSCULAS A MINUSCULAS
'
' Acceso directo: CTRL+m
'
End Sub
'________________________________________________________________

Sub Cambiar_de_Minúsculas_a_Mayúsculas()

dato = ActiveCell.Value
If VarType(dato) = 8 Then
ActiveCell.Value = LCase(dato)
End If
ActiveCell.Offset(1, 0).Select
'
' Cambiar_de_Minúsculas_a_Mayúsculas Macro
' mayusculas a minusculas
'
' Acceso directo: CTRL+n
'
End Sub
'________________________________________________________________

Sub Inicial_mayuscula()
dato = ActiveCell.Value
                    If VarType(dato) = 8 Then
                    ActiveCell.Value = WorksheetFunction.Proper(dato)
                    End If
                    ActiveCell.Offset(1, 0).Select
'
' Inicial_mayuscula Macro
' Solo cambia la inicial a mayuscula
'
' Acceso directo: CTRL+a
'
End Sub
'________________________________________________________________

Function Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then

Range("B" & Target.Row) = Date

Range("C" & Target.Row) = Format(Now, "hh:mm")

End If

End Function