Sub PREP_SAVE()
Workbooks("ESD_QA_2019.xlsx").Activate
Sheets("JAN_TIX").Visible = True
Sheets("JAN_ICE").Visible = True
Sheets("E2A4TIX").Visible = False
Sheets("E2A4CALL").Visible = False
Sheets("Progress&Results").Visible = True
Windows("ESD_QA_2019.xlsx:2").Activate
ActiveWindow.Close
Windows("ESD_QA_2019.xlsx").Activate
Sheets("JAN_ICE").Select
Call Show_ALL_Cells_2019
Sheets("JAN_ICE").Select
Call Show_ALL_Cells_2019
End Sub

Sub DaytimeSaveToUdriveAndLocal_2019()
    Call PREP_SAVE
    Dim MyFile As String
       Workbooks("ESD_QA_2019.xlsx").Activate
       MyFile = ActiveWorkbook.Name
       ' Do not display the message about overwriting the existing file.
       Application.DisplayAlerts = False
       ' Save the active workbook with the name of the
       ' active workbook. Save it on the E drive to a folder called
       
       'U Drive // May need to deactivate this one when Slow Network performance
       'ActiveWorkbook.SaveAs Filename:="U:\Permdocuments\00.BRIEFCASES\REPORTING_SYNC\ESD\" & MyFile
       
       'C Drive // May need to deactivate this one when Slow Network performance
       ActiveWorkbook.SaveAs ("C:\Users\trudel1\Documents\00.QA\KIT\REPORTING_SYNC\ESD\_OtherRecycledVersions\" & "ESD_QA_2019" & Format(Now(), "_DD-MMM-YYYY_hh.mm AMPM") & ".xlsx")
       ActiveWorkbook.SaveAs Filename:="C:\Users\trudel1\Documents\00.QA\KIT\REPORTING_SYNC\ESD\" & MyFile
       
       'Close the workbook by using the following.
       
       Workbooks("E_PREP_JAN_QA_2019.xlsm").Activate
       MyFile = ActiveWorkbook.Name
       Application.DisplayAlerts = False
       
       'U Drive // May need to deactivate this one when Slow Network performance
       'ActiveWorkbook.SaveAs Filename:="U:\Permdocuments\00.BRIEFCASES\REPORTING_SYNC\ESD\_ExcelStartUpFiles\" & MyFile
       
       'C Drive // May need to deactivate this one when Slow Network performance
       ActiveWorkbook.SaveAs Filename:="C:\Users\trudel1\Documents\00.QA\KIT\REPORTING_SYNC\ESD\_PREP\RecycleBin_PREP\" & MyFile & Format(Now(), "_DD-MMM-YYYY_hh.mm AMPM") & ".xlsm"
       ActiveWorkbook.SaveAs Filename:="C:\Users\trudel1\Documents\00.QA\KIT\REPORTING_SYNC\ESD\_ExcelStartUpFiles\" & MyFile
       
       'Return to ESD_QA_2019.xlsx
       Workbooks("ESD_QA_2019.xlsx").Activate
       
       'Clear all Shortcuts in place and reset
       'This will also Hide JAN_ICE and JAN_TIX.
       'This will indicate that user needs to do F1...
       'to re-initiate the Keyboard Shortcuts for this workbook
       Call After_Save_State_Bindings_2019
End Sub

Sub EndOfDaySaveToShareAndLocal_2019()
Call PREP_SAVE

    Dim MyFile As String
       'Main ESD_QA_2019 File Backups
       Workbooks("ESD_QA_2019.xlsx").Activate
       Sheets("ESD_Agents").Visible = False
       MyFile = ActiveWorkbook.Name
       ' Do not display the message about overwriting the existing file.
       Application.DisplayAlerts = False
       ' Save the active workbook with the name of the
       ' active workbook. Save it on the E drive to a folder called
       
       'S 'Shared' Drive // May need to deactivate this one when file in use, breaks macro
       ActiveWorkbook.SaveAs Filename:="S:\GTIS\WMSDServ\Quality Assurance\ESD\" & MyFile
       'C Drive // May need to deactivate this one when Slow Network performance
       ActiveWorkbook.SaveAs ("C:\Users\trudel1\Documents\00.QA\KIT\REPORTING_SYNC\ESD\_OtherRecycledVersions\" & "ESD_QA_2019" & Format(Now(), "_DD-MMM-YYYY_hh.mm AMPM") & ".xlsx")
       ActiveWorkbook.SaveAs Filename:="C:\Users\trudel1\Documents\00.QA\KIT\REPORTING_SYNC\ESD\" & MyFile
       
       ' Close the workbook by using the following.
       'ActiveWorkbook.Close
       
       'Main ESD 'PREP_Macros' File Backups
       Workbooks("E_PREP_JAN_QA_2019.xlsm").Activate
       MyFile = ActiveWorkbook.Name
       Application.DisplayAlerts = False
       'S 'Shared' Drive // May need to deactivate this one when file in use, breaks macro
       ActiveWorkbook.SaveAs Filename:="S:\GTIS\WMSDServ\Quality Assurance\ESD\_ExcelStartUpFiles\" & MyFile
       'C Drive // May need to deactivate this one when Slow Network performance
       ActiveWorkbook.SaveAs Filename:="C:\Users\trudel1\Documents\00.QA\KIT\REPORTING_SYNC\ESD\_PREP\RecycleBin_PREP\" & MyFile & Format(Now(), "_DD-MMM-YYYY_hh.mm AMPM") & ".xlsm"
       ActiveWorkbook.SaveAs Filename:="C:\Users\trudel1\Documents\00.QA\KIT\REPORTING_SYNC\ESD\_ExcelStartUpFiles\" & MyFile
       'ActiveWindow.WindowState = xlMinimized
       Workbooks("ESD_QA_2019.xlsx").Activate 'Return to ESD_QA_2019.xlsx
       'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
       Sheets("JAN_ICE").Select
       Call WAV_ON_Shared_Drive_2019
       
       'Clear all Shortcuts in place and reset
       'This will also Hide JAN_ICE and JAN_TIX.
       'This will indicate that user needs to do F1...
       'to re-initiate the Keyboard Shortcuts for this workbook
       Call After_Save_State_Bindings_2019
End Sub