Macro en excel para convertir texto a mayúscula, minúscula y nombre propio

Macro en excel para convertir texto a MAYÚSCULA, minúscula y Nombre Propio
Actualmente en excel existen estas funciones, pero la limitación es que si tenemos varias celdas (unas 1000 celdas por ejemplo) deberíamos convertirlas en otras celdas y luego reemplazarlas para que surjan efecto.

Lo que haremos con estas macros sera convertirlas en el mismo lugar donde se encuentran con un solo paso.

Y bien pondremos los códigos vba de cada una.

Convertir a mayúsculas

Sub Mayusculas()
Application.ScreenUpdating = False
For Each celda In Selection
    celda.Value = UCase(celda)
Next
Application.ScreenUpdating = True
End Sub

Convertir a minúsculas

Sub Minusculas()
Application.ScreenUpdating = False
For Each celda In Selection
    celda.Value = LCase(celda)
Next
Application.ScreenUpdating = True
End Sub

Convertir a Nombre propio

Sub NombrePropio()
Application.ScreenUpdating = False
For Each celda In Selection
    celda.Value = WorksheetFunction.Proper(celda)
Next
Application.ScreenUpdating = True
End Sub

Para utilizarlo, deben seleccionar el rango de celdas que desean convertir y luego ejecutar el código respectivo y verán que da el resultado esperado.