Some Macro is exiting before the EnableEvents = True line
I see a lot of that, so I have a very handy Sub where I can get to it easily
Sub ResetApplication()
With Application
.EnableEvents = True
.ScreebnUpdating = True
.Calculation = xlAutomatic 'Technically, this is redundant, but Ram is cheap.
'Add other as you see fit
End With
End Sub
It is my opinion that it is bad practice to use an Event sub, Like Worksheet_Change, to do anything other than look at the Target(s) and call the appropriate Sub.
Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("B6:K120")) Is Nothing Then
SetRequesterNum Target
'ElseIf Target.Address = "$Z$99:$Z$101" Then
'AnotherSub Target
'ElseIf SomeOther Target Then
'Some other sub Target
End If
Application.EnableEvents = True
End Sub
Private Sub SetRequesterNum(Target As Range)
requestorNum = Range("B3").Value
rowActiveCell = Target.Row
colActiveCell = Target.Column
ws3log.Cells(rowActiveCell - ws3First + ws3logFirst, colActiveCell + 1 + 10 * (requestorNum - 1)) = Target.Value
End Sub
'------------------------------------------------------------------------------
Private Sub AnotherSub(Target as Range)
'Do stuff to or with Target, (Range("$Z$99:$Z$101"...) Supposedly ;)
'For example... X = WorksheetFunction.SUM(Target)
End Sub
'--------------------------------------------------------------------------------
Private Sub SomeOtherSub(Target As Range)
'
End Sub