I have used the script below in other spreadsheets to convert text to all caps as the user inputs data but, for some reason, it's not working. Am I doing something wrong? I got this script off the internet and it has worked for me for a year. I am not educated in VB so please dumb down the responses for me, please! thanks!
Private Sub Worksheet_Change(ByVal Target As Range)
Dim actionRange As Range
Dim oneCell As Range
Set actionRange = Range("b3:ABC5000"): Rem adjust
Set actionRange = Application.Intersect(Target, actionRange)
If Not actionRange Is Nothing Then
On Error GoTo ErrorHalt
Application.EnableEvents = False
For Each oneCell In actionRange
oneCell.Value = UCase(oneCell.Value)
Next oneCell
End If
ErrorHalt:
Err.Clear
Application.EnableEvents = True
End Sub
Bookmarks