G
Guest
Hi,
If a user is entering any Text ,I want to convert all text in CAPS
automatically.
If a user is entering any Text ,I want to convert all text in CAPS
automatically.
G
Gord Dibben
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column > 4 Then Exit Sub
On Error GoTo ErrHandler
Application.EnableEvents = False
Target.Formula = UCase(Target.Formula)
ErrHandler:
Application.EnableEvents = True
End Sub
As written Works on columns A
only. Change the > 4 to a higher number for
more columns.
This is event code. Right-click on the sheet tab and "View Code".
Copy/paste the code into that sheet module.
Gord Dibben MS Excel MVP
If Target.Column > 4 Then Exit Sub
On Error GoTo ErrHandler
Application.EnableEvents = False
Target.Formula = UCase(Target.Formula)
ErrHandler:
Application.EnableEvents = True
End Sub
As written Works on columns A
only. Change the > 4 to a higher number formore columns.
This is event code. Right-click on the sheet tab and "View Code".
Copy/paste the code into that sheet module.
Gord Dibben MS Excel MVP