Ayuda con macro para convertir a mayusculas

[AprendizMexicano]

Gracias amigos, por su comentarios

Pero si tienen razon del codigo es ineficaz, mejor voy a utilizar este otro codigo que encontre y que si funciona.

Se los dejo por si a alguien le sirve

Convierte de minusculas a mayusculas:

Sub mayusc ( )
Set rango = Selection
For each Cell in rango
Cell.Value = Ucase(Cell.Value)
Next
End Sub

Nuevamente les reitero mi agradeciemiento por su gran ayuda, que tenga buen dia.

Saludos