Charles Gomez

Elsa Matilde respondió: Me parece que es mucho más sencillo: Pruébala así y comentame: Private Sub Worksheet_Change(ByVal Target As Range) Target.Value = UCase(Target.Value) End Sub En tu ejemplo no estas controlando rangos por lo que aquí tampoco. Es para toda la hoja. PD)...