Hi,
I have the following code on sheet12 (tab name Monday).....
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E2:E70")) Is Nothing Then
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End If
If Intersect(Target, Range("S71")) Is Nothing Then
Application.EnableEvents = False
Run Monday_R11_Average_Call_Time
Application.EnableEvents = True
End If
End Sub
.....which runs when when the sheet is updated. The first part works as required (letters in column E2:E70 are changed to uppercase) however when it gets to the code in 'red', nothing happens.
The SUB routine I am trying to call is 'Private Sub Monday_R11_Average_Call_Time()' and is written within the <ThisWorkbook> object section.
I have tried 'Run Monday_R11_Average_Call_Time','Call Monday_R11_Average_Call_Time (which error's)', 'Application.Run Monday_R11_Average_Call_Time' & 'Monday_R11_Average_Call_Time.Call (which error's)'
Can someone please tell me how I call this SUB routine. Thanks.
Bookmarks