VBA Excel Multiple/Simultaneous Event Handling

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 Dim sheet_name As String
 sheet_name = Sh.Name
  Select Case sheet_name = "sheet1"
     'call a subroutine to process sheet1
    Case sheet_name = "sheet2"
    'call a subroutine to process sheet2
    Case sheet_name = "sheet3"
    'call a subroutine to process sheet3
    Case sheet_name = "sheet4"
    'call a subroutine to process sheet4
    Case Else
    'Nothing to do
  End Select
End Sub
Private Sub subroutine_to_process_sheet1()
  For i = 1 to 1000000
    'Do something here
    DoEvents  'Allow other events to be handled and other subs to run
  Next i
End Sub
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 Dim sheet_name As String
 sheet_name = Sh.Name
  Select Case sheet_name
    Case "sheet1"
    'call a subroutine to process sheet1
    Case "sheet2"
    'call a subroutine to process sheet2
    Case "sheet3"
    'call a subroutine to process sheet3
    Case "sheet4"
    'call a subroutine to process sheet4
    Case Else
    'Nothing to do
  End Select
End Sub
 
Private Sub subroutine_to_process_sheet1()
  For i = 1 to 1000000
    'Do something here
    DoEvents  'Allow other events to be handled and other subs to run
  Next i
End Sub
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  Select Case Sh.Index 
    Case 1
      'signal external process for sheet1
    Case 2
      'signal external process for sheet2
    Case 3
      'signal external process for sheet3
    Case 4
      'signal external process for sheet4
  End Select
End Sub
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 
  Select Case Sh.Index
    Case 1
     'call a subroutine to process sheet1
     subroutine_to_process_sheet1 (Sh.Index)
    Case 2
    'call a subroutine to process sheet2
    subroutine_to_process_sheet1 (Sh.Index)
    Case 3
    'call a subroutine to process sheet3
    subroutine_to_process_sheet1 (Sh.Index)
    Case 4
    'call a subroutine to process sheet4
    subroutine_to_process_sheet1 (Sh.Index)
    Case Else
    
    
    'call a subroutine to process all other sheets
    subroutine_to_process_sheet1 (Sh.Index)
  End Select
End Sub
 
Private Sub subroutine_to_process_sheet1(val As Integer)
For i = 1 To 100000
    DoEvents
Next i
 
  MsgBox (val)
  
End Sub
 
Private Sub subroutine_to_process_sheet2(val As Integer)
For i = 1 To 100000
    DoEvents
Next i
 
  MsgBox (val)
  
End Sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

Private Sub Worksheet_Change(ByVal Target As Range)
 
 
 
        
   
    If Target.Columns.Count = 16 Then
        If Not refreshed Then
            refreshed = True
            dtStart = GetTickCount
            Set refreshTimes = New Collection
            refreshCount = 0
        Else
            dtEnd = GetTickCount
            refreshCount = refreshCount + 1
            elapsedTime = dtEnd - dtStart
            refreshTimes.Add Str(elapsedTime), Str(refreshCount)
            totRefresh = totRefresh + elapsedTime
            If refreshCount > avgCount Then
                totRefresh = totRefresh - Val(refreshTimes(Str(refreshCount - avgCount)))
                refreshTimes.Remove (Str(refreshCount - avgCount))
                 Application.EnableEvents = False
                Cells(2, 21).Value = totRefresh / avgCount
                Application.EnableEvents = True
            End If
            dtStart = dtEnd
        End If
 
 
 
Application.EnableEvents = False
 
    Cells(2, 10).Value = "U" 'updates balance and exposure
       
    'log time race went in play
    If Cells(2, 5).Value = "In Play" And Cells(3, 17).Value = "" Then
    Cells(3, 17).Value = Cells(2, 4).Value
    ElseIf Cells(2, 5).Value <> "In Play" Then
    Cells(3, 17).Value = ""
    End If
       
    'forward quick pick race on after race ended
    If Cells(2, 5).Value = "In Play" And Cells(2, 6).Value = "Suspended" And UCase(Cells(1, 17).Value) = "Y" And nextracetrigger = 0 Then
        nextracetrigger = 1
        lastrace = Cells(1, 1).Value
        Cells(2, 17).Value = -1
    End If
    
    If lastrace <> Cells(1, 1).Value Then
        nextracetrigger = 0
        Cells(2, 17).FormulaR1C1 = "=IF(OR(RC[-11]=""Suspended"",RC[-11]=""Closed""),1,IF(ISERROR(IF(AND(HOUR(RC[-13])=0,MINUTE(RC[-13])<=1),0.2,1)),0.2,IF(AND(HOUR(RC[-13])=0,MINUTE(RC[-13])<=1),0.2,1)))"
    End If
    
           
    If Range("e2") = "In Play" And Range("f2") <> "Suspended" Then
        Set rng = Range("a5:bz55")
        strArray = rng
        For i = 1 To UBound(strArray)
                
                'track lowest lay odds
                strArray(i, 70) = strArray(i, 8) '8 is col H, 70 is unused array address
                If (strArray(i, 8) - strArray(i, 53)) <> 0 Then
                strArray(i, 69) = strArray(i, 8) - strArray(i, 53)
                Else
                strArray(i, 69) = strArray(i, 54)
                End If
                
                strArray(i, 68) = strArray(i, 8)
                
                Select Case strArray(i, 52) '52 is col AZ
                Case "", Is > strArray(i, 8)
                If strArray(i, 8) <> 0 Then
                strArray(i, 70) = strArray(i, 8)
                Else
                strArray(i, 70) = 1001
                End If
                Case Else
                strArray(i, 70) = strArray(i, 52)
                End Select
                
        Next i
        slicestrArray = ThisWorkbook.Sheets(1).Range("az5:bb55")
        slicestrArray2 = UBound(slicestrArray)
        ReDim holdingarray(1 To slicestrArray2, 2)
        For i = 1 To UBound(strArray)
        holdingarray(i, 0) = strArray(i, 70)
        holdingarray(i, 1) = strArray(i, 68)
        holdingarray(i, 2) = strArray(i, 69)
        Next i
        ThisWorkbook.Sheets(1).Range("az5:bb55").Value = holdingarray
    Else
    Range("az5:az55").Value = 1001
    Range("ba5:bb55").Value = ""
    End If
Application.EnableEvents = True
End If
 
End Sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98: