Force Capital won't work after upgrade to Excel 2003

[carlinhosg]

Hi there.

I have recently upgraded from Excel 2000 to Excel 03 and the code below won't work in Excel 03. Coula anyone tell me why?

Thanks in advance.

----------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
'Forces entries on columns B thru N to be capitalized
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("B:N")) Is Nothing And Target.Columns.Count = 1 Then
Target(1).Value = UCase(Target(1).Value)
End If
Application.EnableEvents = True

End Sub

 

[carlinhosg]

bump

 

[Barrie Davidson]

A hunch, try running this code before testing the worksheet change event

Sub EventsOn()
Application.EnableEvents = True
End Sub

 

[carlinhosg]

That did it. Thanks a lot!