Sub PICKUP_ADHOC_TIX_2019()
    Workbooks("JANemberADHOC.xlsx").Activate
    Sheets("ADHOC_JAN_TIX").Select
    'Range("D" & Selection.Row & ":AG" & Selection.Row & "," & "AG" & Selection.Row & "," & "AL" & Selection.Row).Select
    Range("D" & Selection.row & "," & "G" & Selection.row & ":H" & Selection.row & "," & "K" & Selection.row & ":L" & Selection.row & "," & "P" & Selection.row & ":AG" & Selection.row).Select
    Selection.Copy
    Call PICKUP_AGENT_TIX_row_2019
End Sub

Sub BACK_2_ADHOC_TIX_2019()
    Workbooks("JANemberADHOC.xlsx").Activate
   Sheets("ADHOC_JAN_TIX").Select
   ActiveWindow.Zoom = 60
End Sub


Sub Back2TIX_ADHOC_AndClear_2019()
Windows("ESD_QA_2019.xlsx:1").Activate
Sheets("E2A4TIX").Visible = False
Call BACK_2_ADHOC_TIX_2019
End Sub