Sub ADD_AGENT_BY_SDM_NOTIFICATION_2019()
Workbooks("ESD_QA_2019.xlsx").Activate
Sheets("ESD_Agents").Select
Call Show_ALL_Columns_AGENTS_2019
Range("C:C,F:J,L:L,O:S").EntireColumn.Hidden = True
Call Add_NEW_Agents_Bindings_2019
End Sub
Sub SHOW_AGENTS_ICE_2019()
Workbooks("ESD_QA_2019.xlsx").Activate
Sheets("ESD_Agents").Select
Call Show_ALL_Columns_AGENTS_2019
Range("B:H,N:U").EntireColumn.Hidden = True
End Sub
Sub SHOW_AGENTS_ECD_2019()
Workbooks("ESD_QA_2019.xlsx").Activate
Sheets("ESD_Agents").Select
Call Show_ALL_Columns_AGENTS_2019
Range("A:A,C:H,N:U").EntireColumn.Hidden = True
End Sub
Sub Show_ALL_Columns_AGENTS_2019()
Workbooks("ESD_QA_2019.xlsx").Activate
Sheets("ESD_Agents").Select
Columns.EntireColumn.Hidden = False
End Sub
Sub REVEAL_ECD_ID_AGENTS_2019()
Workbooks("ESD_QA_2019.xlsx").Activate
Sheets("ESD_Agents").Select
Range("B:B").EntireColumn.Hidden = False
End Sub
Sub HIDE_ECD_ID_AGENTS_2019()
Workbooks("ESD_QA_2019.xlsx").Activate
Sheets("ESD_Agents").Select
Range("B:B").EntireColumn.Hidden = True
End Sub
Sub REVEAL_ICE_AGENTLastN_2019()
Workbooks("ESD_QA_2019.xlsx").Activate
Sheets("ESD_Agents").Select
Range("A:A").EntireColumn.Hidden = False
End Sub
Sub HIDE_ICE_AGENTLastN_2019()
Workbooks("ESD_QA_2019.xlsx").Activate
Sheets("ESD_Agents").Select
Range("A:A").EntireColumn.Hidden = True
End Sub

Sub AgentsInOrder_2019()
'
' AgentsInOrder
'

Workbooks("ESD_QA_2019.xlsx").Activate
Sheets("ESD_Agents").Visible = True
Sheets("ESD_Agents").Activate
Sheets("JAN_ICE").Visible = False
Sheets("ESD_Agents").Visible = True
Sheets("Progress&Results").Visible = False
Sheets("JAN_TIX").Visible = False

    Windows("ESD_QA_2019.xlsx:1").Activate
    ActiveWorkbook.Worksheets("ESD_Agents").ListObjects("ESD_AgentsQA").Sort. _
        SortFields.Clear
    ActiveWorkbook.Worksheets("ESD_Agents").ListObjects("ESD_AgentsQA").Sort. _
        SortFields.Clear
    ActiveWorkbook.Worksheets("ESD_Agents").ListObjects("ESD_AgentsQA").Sort. _
        SortFields.Add Key:=Range("ESD_AgentsQA[[#All],[Active]]"), SortOn:= _
        xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("ESD_Agents").ListObjects("ESD_AgentsQA").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWorkbook.Worksheets("ESD_Agents").ListObjects("ESD_AgentsQA").Sort. _
        SortFields.Clear
    ActiveWorkbook.Worksheets("ESD_Agents").ListObjects("ESD_AgentsQA").Sort. _
        SortFields.Add(Range("ESD_AgentsQA[[#All],[Ag. Status]]"), xlSortOnCellColor, _
        xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, 235, 156)
    With ActiveWorkbook.Worksheets("ESD_Agents").ListObjects("ESD_AgentsQA").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWorkbook.Worksheets("ESD_Agents").ListObjects("ESD_AgentsQA").Sort. _
        SortFields.Clear
    ActiveWorkbook.Worksheets("ESD_Agents").ListObjects("ESD_AgentsQA").Sort. _
        SortFields.Add(Range("ESD_AgentsQA[Ag. Status]"), xlSortOnCellColor, _
        xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, 235, 156)
    ActiveWorkbook.Worksheets("ESD_Agents").ListObjects("ESD_AgentsQA").Sort. _
        SortFields.Add(Range("ESD_AgentsQA[Ag. Status]"), xlSortOnCellColor, _
        xlAscending, , xlSortNormal).SortOnValue.Color = RGB(217, 225, 242)
    ActiveWorkbook.Worksheets("ESD_Agents").ListObjects("ESD_AgentsQA").Sort. _
        SortFields.Add(Range("ESD_AgentsQA[Ag. Status]"), xlSortOnCellColor, _
        xlAscending, , xlSortNormal).SortOnValue.Color = RGB(198, 239, 206)
    With ActiveWorkbook.Worksheets("ESD_Agents").ListObjects("ESD_AgentsQA").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Call Add_NEW_Agents_Bindings_2019
    
End Sub