Sub ESD_QA_Init_2019()
Workbooks("ESD_QA_2019.xlsx").Activate
ActiveWorkbook.NewWindow
Windows("ESD_QA_2019.xlsx:1").Activate
ActiveWindow.Zoom = 60
Windows("ESD_QA_2019.xlsx:2").Activate
Sheets("Progress&Results").Select
ActiveWindow.Zoom = 62
Call ICE_Bindings_2019
End Sub

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

Sub Clear_All_Filters_RangeTIX_2019()

  'To Clear All Fitlers use the ShowAllData method for
  'for the sheet.  Add error handling to bypass error if
  'no filters are applied.  Does not work for Tables.
  On Error Resume Next
    JAN_TIX.ShowAllData
  On Error GoTo 0
  Cells.EntireColumn.Hidden = False
End Sub

Sub Clear_All_Filters_Table_2019()

Dim lo As ListObject
  
  'Set reference to the first Table on the sheet
  Set lo = Sheet1.ListObjects(1)
  
  'Clear All Filters for entire Table
  lo.AutoFilter.ShowAllData

End Sub
Sub Clear_All_Filters_RangeICE_2019()
  On Error Resume Next
    JAN_ICE.ShowAllData
  On Error GoTo 0
  Cells.EntireColumn.Hidden = False
End Sub
Sub Open_ESD_QA_2019()
    Workbooks.Open Filename:= _
        "C:\Users\trudel1\Documents\00.QA\KIT\REPORTING_SYNC\ESD\ESD_QA_2019.xlsx", _
        UpdateLinks:=0
    Call ESD_QA_Init_2019
End Sub