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