Sub ICE_HideRangeCols_2019()
Workbooks("ESD_QA_2019.xlsx").Activate
Sheets("JAN_ICE").Select
Call Show_ALL_Columns_2019
Range("A:A,C:D,E:F,I:L,U:AJ").EntireColumn.Hidden = True
ActiveWindow.Zoom = 70
End Sub

Sub ICE_HideRangeColsNM_2019()
Workbooks("ESD_QA_2019.xlsx").Activate
Sheets("JAN_ICE").Select
Call Show_ALL_Columns_2019
Range("A:A,C:D,E:F,I:L,U:AJ").EntireColumn.Hidden = True
End Sub

Sub ICE_ShowRangeCols_2019()
Range("A:A,C:D,E:F,I:L,Q:S,U:AJ").EntireColumn.Hidden = False
End Sub


Sub ICE_ShowCallsAvail_2019()
Columns.EntireColumn.Hidden = False
End Sub

Sub Show_ALL_Columns_2019()
Columns.EntireColumn.Hidden = False
End Sub


Sub PasteWAVurls_2019()
Workbooks("ESD_QA_2019.xlsx").Activate
Sheets("JAN_ICE").Select
Call Show_ALL_Columns_2019
Range("A:A,C:D,E:F,I:J,L:L,U:AJ,AM:AQ").EntireColumn.Hidden = True
ActiveSheet.ListObjects("ESD_JAN_ICE").Range.AutoFilter Field:=2
    ActiveSheet.ListObjects("ESD_JAN_ICE").Range.AutoFilter Field:=2, Criteria1 _
        :="REM"
End Sub

Sub ClearFiltersAndUnhidePOP_ICE_2019()
'
' ClearFiltersAndUnhide Macro
'
    Workbooks("ESD_QA_2019.xlsx").Activate
    Windows("ESD_QA_2019.xlsx:1").Activate
    Sheets("JAN_ICE").Visible = True
    Sheets("JAN_TIX").Visible = False
    ActiveSheet.Unprotect
    Application.WindowState = xlNormal
    Windows("ESD_QA_2019.xlsx:2").Activate
    Windows("ESD_QA_2019.xlsx:1").Activate
    Sheets("JAN_ICE").Select
    Cells.Select
    Selection.EntireColumn.Hidden = False
    Selection.EntireRow.Hidden = False
    'Range("ESD_JAN_TIX[[#Headers],[Audit Status]]").Activate
    'ActiveSheet.ShowAllData
    'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.Unprotect
End Sub