carlinhosg
Board Regular
- Joined
- Mar 22, 2005
- Messages
- 64
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
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