Hi,

I have the following code as part of more code within "Sheet1" Module using the Worksheet_Calculate() command.


30:
On Error GoTo 31

If Range("AA1") = Range("AA71:AA77") And Range("G1") = "In-play" And Range("H4") >= Range("Z3") And Range("AH10") = Range("AE4") And _
Range("AI5") = "Use Projected Stamped SP (Specified Time Stamped By Cell 'R5')" And Range("G9") >= Range("AM5") And Range("G9") <= Range("AJ6") And Range("AD10") < Range("AC6") _
Or Range("O9") = "PLACED" And Range("AA1") = Range("AA71:AA77") And Range("G1") = "In-play" And Range("H4") >= Range("Z3") And Range("AH10") = Range("AE4") And _
Range("AI5") = "Use Projected Stamped SP (Specified Time Stamped By Cell 'R5')" And Range("G9") >= Range("AM5") And Range("G9") <= Range("AJ6") And Range("AD10") < Range("AC6") Then



Application.EnableEvents = False

Call Module_E

Application.EnableEvents = True


End If


31:
On Error GoTo 32

If Range("AA1") = Range("AA71:AA77") And Range("G1") = "In-play" And Range("H4") >= Range("Z3") And Range("AH12") = Range("AE4") And _
Range("AI5") = "Use Projected Stamped SP (Specified Time Stamped By Cell 'R5')" And Range("G11") >= Range("AM5") And Range("G11") <= Range("AJ6") And Range("AD12") < Range("AC6") _
Or Range("O11") = "PLACED" And Range("AA1") = Range("AA71:AA77") And Range("G1") = "In-play" And Range("H4") >= Range("Z3") And Range("AH12") = Range("AE4") And _
Range("AI5") = "Use Projected Stamped SP (Specified Time Stamped By Cell 'R5')" And Range("G11") >= Range("AM5") And Range("G11") <= Range("AJ6") And Range("AD12") < Range("AC6") Then



Application.EnableEvents = False

Call Module_E

Application.EnableEvents = True

End If



32:
On Error GoTo 33

If Range("AA1") = Range("AA71:AA77") And Range("G1") = "In-play" And Range("H4") >= Range("Z3") And Range("AH14") = Range("AE4") And _
Range("AI5") = "Use Projected Stamped SP (Specified Time Stamped By Cell 'R5')" And Range("G13") >= Range("AM5") And Range("G13") <= Range("AJ6") And Range("AD14") < Range("AC6") _
Or Range("O13") = "PLACED" And Range("AA1") = Range("AA71:AA77") And Range("G1") = "In-play" And Range("H4") >= Range("Z3") And Range("AH14") = Range("AE4") And _
Range("AI5") = "Use Projected Stamped SP (Specified Time Stamped By Cell 'R5')" And Range("G13") >= Range("AM5") And Range("G13") <= Range("AJ6") And Range("AD14") < Range("AC6") Then



Application.EnableEvents = False

Call Module_E

Application.EnableEvents = True

End If



33:
On Error GoTo 34

If Range("AA1") = Range("AA71:AA77") And Range("G1") = "In-play" And Range("H4") >= Range("Z3") And Range("AH16") = Range("AE4") And _
Range("AI5") = "Use Projected Stamped SP (Specified Time Stamped By Cell 'R5')" And Range("G15") >= Range("AM5") And Range("G15") <= Range("AJ6") And Range("AD16") < Range("AC6") _
Or Range("O15") = "PLACED" And Range("AA1") = Range("AA71:AA77") And Range("G1") = "In-play" And Range("H4") >= Range("Z3") And Range("AH16") = Range("AE4") And _
Range("AI5") = "Use Projected Stamped SP (Specified Time Stamped By Cell 'R5')" And Range("G15") >= Range("AM5") And Range("G15") <= Range("AJ6") And Range("AD16") < Range("AC6") Then



Application.EnableEvents = False

Call Module_E

Application.EnableEvents = True

End If



34:
On Error GoTo 35

If Range("AA1") = Range("AA71:AA77") And Range("G1") = "In-play" And Range("H4") >= Range("Z3") And Range("AH18") = Range("AE4") And _
Range("AI5") = "Use Projected Stamped SP (Specified Time Stamped By Cell 'R5')" And Range("G17") >= Range("AM5") And Range("G17") <= Range("AJ6") And Range("AD18") < Range("AC6") _
Or Range("O17") = "PLACED" And Range("AA1") = Range("AA71:AA77") And Range("G1") = "In-play" And Range("H4") >= Range("Z3") And Range("AH18") = Range("AE4") And _
Range("AI5") = "Use Projected Stamped SP (Specified Time Stamped By Cell 'R5')" And Range("G17") >= Range("AM5") And Range("G17") <= Range("AJ6") And Range("AD18") < Range("AC6") Then




Application.EnableEvents = False

Call Module_E

Application.EnableEvents = True

End If



35:
On Error GoTo 36

If Range("AA1") = Range("AA71:AA77") And Range("G1") = "In-play" And Range("H4") >= Range("Z3") And Range("AH20") = Range("AE4") And _
Range("AI5") = "Use Projected Stamped SP (Specified Time Stamped By Cell 'R5')" And Range("G19") >= Range("AM5") And Range("G19") <= Range("AJ6") And Range("AD20") < Range("AC6") _
Or Range("O19") = "PLACED" And Range("AA1") = Range("AA71:AA77") And Range("G1") = "In-play" And Range("H4") >= Range("Z3") And Range("AH20") = Range("AE4") And _
Range("AI5") = "Use Projected Stamped SP (Specified Time Stamped By Cell 'R5')" And Range("G19") >= Range("AM5") And Range("G19") <= Range("AJ6") And Range("AD20") < Range("AC6") Then



Application.EnableEvents = False

Call Module_E

Application.EnableEvents = True

End If



36:
On Error GoTo 37

If Range("AA1") = Range("AA71:AA77") And Range("G1") = "In-play" And Range("H4") >= Range("Z3") And Range("AH22") = Range("AE4") And _
Range("AI5") = "Use Projected Stamped SP (Specified Time Stamped By Cell 'R5')" And Range("G21") >= Range("AM5") And Range("G21") <= Range("AJ6") And Range("AD22") < Range("AC6") _
Or Range("O21") = "PLACED" And Range("AA1") = Range("AA71:AA77") And Range("G1") = "In-play" And Range("H4") >= Range("Z3") And Range("AH22") = Range("AE4") And _
Range("AI5") = "Use Projected Stamped SP (Specified Time Stamped By Cell 'R5')" And Range("G21") >= Range("AM5") And Range("G21") <= Range("AJ6") And Range("AD22") < Range("AC6") Then



Application.EnableEvents = False

Call Module_E

Application.EnableEvents = True

End If


37:
On Error GoTo 38

If Range("AA1") = Range("AA71:AA77") And Range("G1") = "In-play" And Range("H4") >= Range("Z3") And Range("AH24") = Range("AE4") And _
Range("AI5") = "Use Projected Stamped SP (Specified Time Stamped By Cell 'R5')" And Range("G23") >= Range("AM5") And Range("G23") <= Range("AJ6") And Range("AD24") < Range("AC6") _
Or Range("O23") = "PLACED" And Range("AA1") = Range("AA71:AA77") And Range("G1") = "In-play" And Range("H4") >= Range("Z3") And Range("AH24") = Range("AE4") And _
Range("AI5") = "Use Projected Stamped SP (Specified Time Stamped By Cell 'R5')" And Range("G23") >= Range("AM5") And Range("G23") <= Range("AJ6") And Range("AD24") < Range("AC6") Then




Application.EnableEvents = False

Call Module_E

Application.EnableEvents = True

End If


38:
On Error GoTo 39

If Range("AA1") = Range("AA71:AA77") And Range("G1") = "In-play" And Range("H4") >= Range("Z3") And Range("AH26") = Range("AE4") And _
Range("AI5") = "Use Projected Stamped SP (Specified Time Stamped By Cell 'R5')" And Range("G25") >= Range("AM5") And Range("G25") <= Range("AJ6") And Range("AD26") < Range("AC6") _
Or Range("O25") = "PLACED" And Range("AA1") = Range("AA71:AA77") And Range("G1") = "In-play" And Range("H4") >= Range("Z3") And Range("AH26") = Range("AE4") And _
Range("AI5") = "Use Projected Stamped SP (Specified Time Stamped By Cell 'R5')" And Range("G25") >= Range("AM5") And Range("G25") <= Range("AJ6") And Range("AD26") < Range("AC6") Then




Application.EnableEvents = False

Call Module_E

Application.EnableEvents = True

End If


39:
On Error GoTo 40

If Range("AA1") = Range("AA71:AA77") And Range("G1") = "In-play" And Range("H4") >= Range("Z3") And Range("AH28") = Range("AE4") And _
Range("AI5") = "Use Projected Stamped SP (Specified Time Stamped By Cell 'R5')" And Range("G27") >= Range("AM5") And Range("G27") <= Range("AJ6") And Range("AD28") < Range("AC6") _
Or Range("O27") = "PLACED" And Range("AA1") = Range("AA71:AA77") And Range("G1") = "In-play" And Range("H4") >= Range("Z3") And Range("AH28") = Range("AE4") And _
Range("AI5") = "Use Projected Stamped SP (Specified Time Stamped By Cell 'R5')" And Range("G27") >= Range("AM5") And Range("G27") <= Range("AJ6") And Range("AD28") < Range("AC6") Then




Application.EnableEvents = False

Call Module_E

Application.EnableEvents = True

End If


40:
On Error GoTo 41

If Range("AA1") = Range("AA71:AA77") And Range("G1") = "In-play" And Range("H4") >= Range("Z3") And Range("AH30") = Range("AE4") And _
Range("AI5") = "Use Projected Stamped SP (Specified Time Stamped By Cell 'R5')" And Range("G29") >= Range("AM5") And Range("G29") <= Range("AJ6") And Range("AD30") < Range("AC6") _
Or Range("O29") = "PLACED" And Range("AA1") = Range("AA71:AA77") And Range("G1") = "In-play" And Range("H4") >= Range("Z3") And Range("AH30") = Range("AE4") And _
Range("AI5") = "Use Projected Stamped SP (Specified Time Stamped By Cell 'R5')" And Range("G29") >= Range("AM5") And Range("G29") <= Range("AJ6") And Range("AD30") < Range("AC6") Then




Application.EnableEvents = False

Call Module_E

Application.EnableEvents = True

End If



41:
On Error GoTo 42

If Range("AA1") = Range("AA71:AA77") And Range("G1") = "In-play" And Range("H4") >= Range("Z3") And Range("AH32") = Range("AE4") And _
Range("AI5") = "Use Projected Stamped SP (Specified Time Stamped By Cell 'R5')" And Range("G31") >= Range("AM5") And Range("G31") <= Range("AJ6") And Range("AD32") < Range("AC6") _
Or Range("O31") = "PLACED" And Range("AA1") = Range("AA71:AA77") And Range("G1") = "In-play" And Range("H4") >= Range("Z3") And Range("AH32") = Range("AE4") And _
Range("AI5") = "Use Projected Stamped SP (Specified Time Stamped By Cell 'R5')" And Range("G31") >= Range("AM5") And Range("G31") <= Range("AJ6") And Range("AD32") < Range("AC6") Then




Application.EnableEvents = False

Call Module_E

Application.EnableEvents = True


End If


Because i have so much code within "Sheet1" its returning "Procedure Too Large" compile error.

I have already optimised as best i can calling for Macros in separate Modules but still need to condense this.


I'm sure there is someway to combine into ONE multiple IF , AND, OR statement, im just not advanced enough to know how!

Andy help greatly appreciated guys!