Hide and Show Colums using VBA

Sub Hide()

       Columns("K:M").EntireColumn.Hidden = True 'Hides columns K and M
        Columns("Q:S").EntireColumn.Hidden = True 'Hides columns Q and S
        Columns("W:Y").EntireColumn.Hidden = True 'Hides columns W and Y
     Columns("AC:AE").EntireColumn.Hidden = True 'Hides columns AC and AE
     Columns("AI:AK").EntireColumn.Hidden = True 'Hides columns AI and AK
     Columns("AO:AQ").EntireColumn.Hidden = True 'Hides columns AO and AQ
     Columns("AU:AW").EntireColumn.Hidden = True 'Hides columns AU and AW
     Columns("BA:BC").EntireColumn.Hidden = True 'Hides columns BA and BC
     Columns("BG:BI").EntireColumn.Hidden = True 'Hides columns BG and BI
     Columns("BM:BO").EntireColumn.Hidden = True 'Hides columns BM and BO
     Columns("BS:BU").EntireColumn.Hidden = True 'Hides columns BS and BU
     Columns("BY:CA").EntireColumn.Hidden = True 'Hides columns BY and CA
     Columns("CE:CG").EntireColumn.Hidden = True 'Hides columns CE and CG
     Columns("CK:CM").EntireColumn.Hidden = True 'Hides columns CK and CM
     Columns("CQ:CS").EntireColumn.Hidden = True 'Hides columns CQ and CS
     Columns("CW:CY").EntireColumn.Hidden = True 'Hides columns CW and CY
     Columns("DC:DE").EntireColumn.Hidden = True 'Hides columns DC and DE
     Columns("DI:DK").EntireColumn.Hidden = True 'Hides columns DI and DK
     Columns("DO:DQ").EntireColumn.Hidden = True 'Hides columns DO and DQ
     Columns("DU:DW").EntireColumn.Hidden = True 'Hides columns DU and DW
     Columns("EA:EC").EntireColumn.Hidden = True 'Hides columns EA and EC
     Columns("EG:EI").EntireColumn.Hidden = True 'Hides columns EG and EI
     Columns("EM:EO").EntireColumn.Hidden = True 'Hides columns EM and EO
     Columns("ES:EU").EntireColumn.Hidden = True 'Hides columns ES and EU
     Columns("EY:FA").EntireColumn.Hidden = True 'Hides columns EY and FA
     Columns("FE:FG").EntireColumn.Hidden = True 'Hides columns FE and FG
      
End Sub

and for show

 Sub Show()

     Columns("K:M").EntireColumn.Hidden = False 'Unhides columns K and M
     Columns("Q:S").EntireColumn.Hidden = False 'Unhides columns Q and S
     Columns("W:Y").EntireColumn.Hidden = False 'Unhides columns W and Y
     Columns("AC:AE").EntireColumn.Hidden = False 'Unhides columns AC and AE
     Columns("AI:AK").EntireColumn.Hidden = False 'Unhides columns AI and AK
     Columns("AO:AQ").EntireColumn.Hidden = False 'Unhides columns AO and AQ
     Columns("AU:AW").EntireColumn.Hidden = False 'Unhides columns AU and AW
     Columns("BA:BC").EntireColumn.Hidden = False 'Unhides columns BA and BC
     Columns("BG:BI").EntireColumn.Hidden = False 'Unhides columns BG and BI
     Columns("BM:BO").EntireColumn.Hidden = False 'Unhides columns BM and BO
     Columns("BS:BU").EntireColumn.Hidden = False 'Unhides columns BS and BU
     Columns("BY:CA").EntireColumn.Hidden = False 'Unhides columns BY and CA
     Columns("CE:CG").EntireColumn.Hidden = False 'Unhides columns CE and CG
     Columns("CK:CM").EntireColumn.Hidden = False 'Unhides columns CK and CM
     Columns("CQ:CS").EntireColumn.Hidden = False 'Unhides columns CQ and CS
     Columns("CW:CY").EntireColumn.Hidden = False 'Unhides columns CW and CY
     Columns("DC:DE").EntireColumn.Hidden = False 'Unhides columns DC and DE
     Columns("DI:DK").EntireColumn.Hidden = False 'Unhides columns DI and DK
     Columns("DO:DQ").EntireColumn.Hidden = False 'Unhides columns DO and DQ
     Columns("DU:DW").EntireColumn.Hidden = False 'Unhides columns DU and DW
     Columns("EA:EC").EntireColumn.Hidden = False 'Unhides columns EA and EC
     Columns("EG:EI").EntireColumn.Hidden = False 'Unhides columns EG and EI
     Columns("EM:EO").EntireColumn.Hidden = False 'Unhides columns EM and EO
     Columns("ES:EU").EntireColumn.Hidden = False 'Unhides columns ES and EU
     Columns("EY:FA").EntireColumn.Hidden = False 'Unhides columns EY and FA
     Columns("FE:FG").EntireColumn.Hidden = True 'Unhides columns FE and FG
     


 End Sub

However it shows the code as in break mode