
Option Explicit
Sub Maiuscolo() ' CODICE DA ESEGUIRE A MANO
Dim uriga As Long, X As Long
uriga = Range("A" & Rows.Count).End(xlUp).Row ' A la colonna dove esegue il codice
For X = 1 To uriga
Cells(X, 1) = UCase(Cells(X, 1))
Next X
End Sub
Private Sub Worksheet_Change(ByVal Target As Range) 'AUTOMATICO, SEMPRE NELLA COLONNA A
If Not Intersect(Target, Range("A:A")) Is Nothing Then Target.Value = UCase(Target.Value)
End Sub |
