A
AA Arens
I do have a code that automatically make the text capitalized.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Error_handler
With Target
If Not .HasFormula Then
Application.EnableEvents = False
If Target.Row = 10 Then Target.Value = UCase(Target.Value)
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End If
End With
Error_handler:
Resume Next
End Sub
How to add a range of cells that is excluded from this cript?
Bart
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Error_handler
With Target
If Not .HasFormula Then
Application.EnableEvents = False
If Target.Row = 10 Then Target.Value = UCase(Target.Value)
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End If
End With
Error_handler:
Resume Next
End Sub
How to add a range of cells that is excluded from this cript?
Bart