Hi, Can someone help me with the code below, I am getting an error for Procedure too long error and I need this code to run :
Thank you in advance.
P.S The code is a part of a whole thing since cannot post the whole code its more than 10000 lines , Let me know in case of any queries.
Private Sub CMB_GO_Qtrs_Click()
If CHK_Q1.Value = True And Chk_Q2.Value = True Then
Call Qtr_Chk_Q1
Call Qtr_Chk_Q2
With ActiveWorkbook.SlicerCaches("Slicer_Assigned_Month1")
.SlicerItems("Feb").Selected = True
.SlicerItems("Mar").Selected = True
.SlicerItems("Apr").Selected = True
.SlicerItems("May").Selected = True
.SlicerItems("Jun").Selected = True
.SlicerItems("Jul").Selected = False
.SlicerItems("Aug").Selected = False
.SlicerItems("Sep").Selected = False
.SlicerItems("Oct").Selected = False
.SlicerItems("Nov").Selected = False
.SlicerItems("Dec").Selected = False
.SlicerItems("(blank)").Selected = False
.SlicerItems("Jan").Selected = True
End With
With ActiveWorkbook.SlicerCaches("Slicer_Assigned_Month")
.SlicerItems("Feb").Selected = True
.SlicerItems("Mar").Selected = True
.SlicerItems("Apr").Selected = True
.SlicerItems("May").Selected = True
.SlicerItems("Jun").Selected = True
.SlicerItems("Jul").Selected = False
.SlicerItems("Aug").Selected = False
.SlicerItems("Sep").Selected = False
.SlicerItems("Oct").Selected = False
.SlicerItems("Nov").Selected = False
.SlicerItems("Dec").Selected = False
.SlicerItems("(blank)").Selected = False
.SlicerItems("Jan").Selected = True
End With
With ActiveWorkbook.SlicerCaches("Slicer_Month")
.SlicerItems("Feb").Selected = True
.SlicerItems("Mar").Selected = True
.SlicerItems("Apr").Selected = True
.SlicerItems("May").Selected = True
.SlicerItems("Jun").Selected = True
.SlicerItems("Jul").Selected = False
.SlicerItems("Aug").Selected = False
.SlicerItems("Sep").Selected = False
.SlicerItems("Oct").Selected = False
.SlicerItems("Nov").Selected = False
.SlicerItems("Dec").Selected = False
.SlicerItems("(blank)").Selected = False
.SlicerItems("Jan").Selected = True
End With
With ActiveWorkbook.SlicerCaches("Slicer_Month1")
.SlicerItems("Feb").Selected = True
.SlicerItems("Mar").Selected = True
.SlicerItems("Apr").Selected = True
.SlicerItems("May").Selected = True
.SlicerItems("Jun").Selected = True
.SlicerItems("Jul").Selected = False
.SlicerItems("Aug").Selected = False
.SlicerItems("Sep").Selected = False
.SlicerItems("Oct").Selected = False
.SlicerItems("Nov").Selected = False
.SlicerItems("Dec").Selected = False
.SlicerItems("(blank)").Selected = False
.SlicerItems("Jan").Selected = True
End With
With ActiveWorkbook.SlicerCaches("Slicer_Month2")
.SlicerItems("Feb").Selected = True
.SlicerItems("Mar").Selected = True
.SlicerItems("Apr").Selected = True
.SlicerItems("May").Selected = True
.SlicerItems("Jun").Selected = True
.SlicerItems("Jul").Selected = False
.SlicerItems("Aug").Selected = False
.SlicerItems("Sep").Selected = False
.SlicerItems("Oct").Selected = False
.SlicerItems("Nov").Selected = False
.SlicerItems("Dec").Selected = False
.SlicerItems("(blank)").Selected = False
.SlicerItems("Jan").Selected = True
End With
With ActiveWorkbook.SlicerCaches("Slicer_Assigned_Month3")
.SlicerItems("Feb").Selected = True
.SlicerItems("Mar").Selected = True
.SlicerItems("Apr").Selected = True
.SlicerItems("May").Selected = True
.SlicerItems("Jun").Selected = True
.SlicerItems("Jul").Selected = False
.SlicerItems("Aug").Selected = False
.SlicerItems("Sep").Selected = False
.SlicerItems("Oct").Selected = False
.SlicerItems("Nov").Selected = False
.SlicerItems("Dec").Selected = False
.SlicerItems("(blank)").Selected = False
.SlicerItems("Jan").Selected = True
End With
With ActiveWorkbook.SlicerCaches("Slicer_Month3")
.SlicerItems("Jun").Selected = True
.SlicerItems("Jul").Selected = False
.SlicerItems("Aug").Selected = False
.SlicerItems("Sep").Selected = False
.SlicerItems("Oct").Selected = False
.SlicerItems("Nov").Selected = False
.SlicerItems("Dec").Selected = False
.SlicerItems("Feb").Selected = True
.SlicerItems("Mar").Selected = True
.SlicerItems("Apr").Selected = True
.SlicerItems("May").Selected = True
.SlicerItems("(blank)").Selected = False
.SlicerItems("Jan").Selected = True
End With
ElseIf CHK_Q1.Value = True And Chk_Q3.Value = True Then
Call Qtr_Chk_Q1
Call Qtr_Chk_Q3
With ActiveWorkbook.SlicerCaches("Slicer_Assigned_Month1")
.SlicerItems("Feb").Selected = True
.SlicerItems("Mar").Selected = True
.SlicerItems("Apr").Selected = False
.SlicerItems("May").Selected = False
.SlicerItems("Jun").Selected = False
.SlicerItems("Jul").Selected = True
.SlicerItems("Aug").Selected = True
.SlicerItems("Sep").Selected = True
.SlicerItems("Oct").Selected = False
.SlicerItems("Nov").Selected = False
.SlicerItems("Dec").Selected = False
.SlicerItems("(blank)").Selected = False
.SlicerItems("Jan").Selected = True
End With
With ActiveWorkbook.SlicerCaches("Slicer_Assigned_Month")
.SlicerItems("Feb").Selected = True
.SlicerItems("Mar").Selected = True
.SlicerItems("Apr").Selected = False
.SlicerItems("May").Selected = False
.SlicerItems("Jun").Selected = False
.SlicerItems("Jul").Selected = True
.SlicerItems("Aug").Selected = True
.SlicerItems("Sep").Selected = True
.SlicerItems("Oct").Selected = False
.SlicerItems("Nov").Selected = False
.SlicerItems("Dec").Selected = False
.SlicerItems("(blank)").Selected = False
.SlicerItems("Jan").Selected = True
End With
With ActiveWorkbook.SlicerCaches("Slicer_Month")
.SlicerItems("Feb").Selected = True
.SlicerItems("Mar").Selected = True
.SlicerItems("Apr").Selected = False
.SlicerItems("May").Selected = False
.SlicerItems("Jun").Selected = False
.SlicerItems("Jul").Selected = True
.SlicerItems("Aug").Selected = True
.SlicerItems("Sep").Selected = True
.SlicerItems("Oct").Selected = False
.SlicerItems("Nov").Selected = False
.SlicerItems("Dec").Selected = False
.SlicerItems("(blank)").Selected = False
.SlicerItems("Jan").Selected = True
End With
With ActiveWorkbook.SlicerCaches("Slicer_Month1")
.SlicerItems("Feb").Selected = True
.SlicerItems("Mar").Selected = True
.SlicerItems("Apr").Selected = False
.SlicerItems("May").Selected = False
.SlicerItems("Jun").Selected = False
.SlicerItems("Jul").Selected = True
.SlicerItems("Aug").Selected = True
.SlicerItems("Sep").Selected = True
.SlicerItems("Oct").Selected = False
.SlicerItems("Nov").Selected = False
.SlicerItems("Dec").Selected = False
.SlicerItems("(blank)").Selected = False
.SlicerItems("Jan").Selected = True
End With
With ActiveWorkbook.SlicerCaches("Slicer_Month2")
.SlicerItems("Feb").Selected = True
.SlicerItems("Mar").Selected = True
.SlicerItems("Apr").Selected = False
.SlicerItems("May").Selected = False
.SlicerItems("Jun").Selected = False
.SlicerItems("Jul").Selected = True
.SlicerItems("Aug").Selected = True
.SlicerItems("Sep").Selected = True
.SlicerItems("Oct").Selected = False
.SlicerItems("Nov").Selected = False
.SlicerItems("Dec").Selected = False
.SlicerItems("(blank)").Selected = False
.SlicerItems("Jan").Selected = True
End With
With ActiveWorkbook.SlicerCaches("Slicer_Assigned_Month3")
.SlicerItems("Feb").Selected = True
.SlicerItems("Mar").Selected = True
.SlicerItems("Apr").Selected = False
.SlicerItems("May").Selected = False
.SlicerItems("Jun").Selected = False
.SlicerItems("Jul").Selected = True
.SlicerItems("Aug").Selected = True
.SlicerItems("Sep").Selected = True
.SlicerItems("Oct").Selected = False
.SlicerItems("Nov").Selected = False
.SlicerItems("Dec").Selected = False
.SlicerItems("(blank)").Selected = False
.SlicerItems("Jan").Selected = True
End With
With ActiveWorkbook.SlicerCaches("Slicer_Month3")
.SlicerItems("Jun").Selected = False
.SlicerItems("Jul").Selected = True
.SlicerItems("Aug").Selected = True
.SlicerItems("Sep").Selected = True
.SlicerItems("Oct").Selected = False
.SlicerItems("Nov").Selected = False
.SlicerItems("Dec").Selected = False
.SlicerItems("Feb").Selected = True
.SlicerItems("Mar").Selected = True
.SlicerItems("Apr").Selected = False
.SlicerItems("May").Selected = False
.SlicerItems("(blank)").Selected = False
.SlicerItems("Jan").Selected = True
End With