Convertir minúsculas a mayúsculas

[mrocf]

Hola! Antonio8688.
Imagina que los datos a verificar son introducidos en la columna A de una hoja.

Entonces incorpora al módulo de la propia hoja, en el evento "Worksheet_Change", lo siguiente:
_________________________________

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Target = UCase(Target)
End Sub
_________________________________

Saludos, Cacho.