See if this works better

Sub CheckboxQone()
    Call showHideQuarters(1, Range("$A$1").Value)
End Sub

Sub CheckboxQtwo()
    Call showHideQuarters(2, Range("$A$2").Value)
End Sub

Sub CheckboxQthree()
    Call showHideQuarters(3, Range("$A$3").Value)
End Sub

Sub CheckboxQfour()
    Call showHideQuarters(4, Range("$A$4").Value)
End Sub

Sub showHideQuarters(ByVal Quarter As Long, ByVal ShowColumns As Boolean)
    Select Case Quarter
    
        Case 1: Range("D:D,L:O,AD:AE,AN:AO,AX:AY,BK:BL,BW:BW,CC:CC").EntireColumn.Hidden = ShowColumns
    
        Case 2: Range("E:E,P:S,AF:AG,AP:AQ,AZ:BA,BM:BN,BX:BX,CD:CE").EntireColumn.Hidden = ShowColumns
    
        Case 3: Range("F:F,T:W,AH:AI,AR:AS,BB:BC,BO:BP,BY:BY,CF:CG").EntireColumn.Hidden = ShowColumns
        
        Case 4: Range("G:G,X:AA,AJ:AK,AT:AU,BD:BE,BQ:BR,BZ:BZ,CH:CI").EntireColumn.Hidden = ShowColumns
    End Select
End Sub