Pasar a mayúsculas un rango de celdas
Hola expertos, estoy intentando que cualquier celda de texto me la pase a mayúsculas con este código
Private Sub Worksheet_Change(ByVal Target As Range)
Target = UCase(Target)
Next
End Sub
funciona bien cuando es una sola celda, pero cuando introduzco un rango me da error
¿qué hago mal?
Gracias
1 Respuesta
Respuesta de Marcial C. C.
1
Hazlo así, celda por celda en el rango:
Private Sub Worksheet_Change(ByVal Target As Range) For Each cel In Target cel.Value = UCase(cel) Next End Sub
Si te ha valido la respuesta.
