Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a As Boolean, b As Boolean, c As Boolean
a = Not Intersect(Target, Range("A3:D1042")) Is Nothing
b = Not Intersect(Target, Range("E3:H1042")) Is Nothing
c = Not Intersect(Target, Range("I3:L1042")) Is Nothing
If Target.Row >= 3 Then
Application.Run "Macro" & (a * -1) + (b * -2) + (c * -3)
End If
End Sub