Sub TIX_Auditing_2019()
Workbooks("ESD_QA_2019.xlsx").Activate
Windows("ESD_QA_2019.xlsx:1").Activate

'Hide all other Worksheets
Sheets("JAN_ICE").Visible = False

'Keep these sheets visible
'Sheets("ESD_Agents").Visible = True
'Sheets("Progress&Results").Visible = True
Sheets("JAN_TIX").Visible = True

'First Window with TIX Auditing stuff ready
Sheets("JAN_TIX").Select
Call Show_ALL_Cells_2019
Range("A:A,E:G,I:J,M:O,AH:AJ").EntireColumn.Hidden = True
ActiveWindow.Zoom = 60

'Set keyboard shortcuts for TIX auditing
Call TIX_Bindings_2019
Call REM_Reset_TIX_Filter_2019
End Sub


Sub REM_Reset_TIX_Filter_2019()
    Workbooks("ESD_QA_2019.xlsx").Activate
   Sheets("JAN_TIX").Select
    ActiveSheet.ListObjects("ESD_JAN_TIX").Range.AutoFilter Field:=2
    ActiveSheet.ListObjects("ESD_JAN_TIX").Range.AutoFilter Field:=2, Criteria1 _
        :="REM"
    Workbooks("ESD_QA_2019.xlsx").Activate
    Sheets("Progress&Results").Visible = True
    Windows("ESD_QA_2019.xlsx:1").Activate
    Windows("ESD_QA_2019.xlsx:2").Activate
    Sheets("Progress&Results").Select
    ActiveSheet.ChartObjects("TIX_prog_chart").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("ICE_prog_chart").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    Workbooks("ESD_QA_2019.xlsx").Activate
    Windows("ESD_QA_2019.xlsx:1").Activate
    Sheets("JAN_TIX").Select
    ActiveWindow.Zoom = 60
    ActiveWindow.ScrollColumn = 1
    Windows("ESD_QA_2019.xlsx:2").Activate
    Sheets("Progress&Results").Select
    ActiveWindow.Zoom = 62
    ActiveWindow.ScrollColumn = 1
End Sub

Sub REM_REVERSE_Reset_TIX_Filter_2019()
    Workbooks("ESD_QA_2019.xlsx").Activate
   Sheets("JAN_TIX").Select
    ActiveSheet.ListObjects("ESD_JAN_TIX").Range.AutoFilter Field:=2
End Sub
Sub TIXdefault_TIX_Values_2019()
    Workbooks("ESD_QA_2019.xlsx").Activate
    Sheets("JAN_TIX").Select
    Range("P" & Selection.row).Select
    Call Default_TIX_Values_2019
End Sub

Sub TIX_OOS_TIX_Values_2019()
    Workbooks("ESD_QA_2019.xlsx").Activate
    Sheets("JAN_TIX").Select
    Range("P" & Selection.row).Select
    Call Default_TIX_Values_2019
    Call TIX_No_Group2Assign_2019
    Call TIX_100_AND_EMAIL_2019
End Sub

Sub Default_TIX_Values_2019()
'
' Keyboard Shortcut: ctrl+q
'

'
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "NA"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "NA"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.Offset(0, -13).Range("A1").Select
    Range("AE" & Selection.row) = ""
End Sub




Sub RESET_TIX_Values_Call_2019()
    Workbooks("ESD_QA_2019.xlsx").Activate
    Sheets("JAN_TIX").Select
    Range("P" & Selection.row).Select
    Call LoopResetValues_2019(Range("P" & Selection.row & ":AE" & Selection.row), 13)
    ActiveCell.Offset(0, -13).Range("A1").Select
    Range("AE" & Selection.row) = ""
End Sub
Function Loop_YES_Values_2019(myRange, Count)
Dim cel As Range
For Each cel In myRange.Cells
        ActiveCell.FormulaR1C1 = "Yes"
        ActiveCell.Offset(0, 1).Range("A1").Select
        X = X + 1
        If X >= Count Then Exit Function
Next
End Function

Function LoopResetValues_2019(myRange, Count)
Dim cel As Range
For Each cel In myRange.Cells
        ActiveCell.FormulaR1C1 = ""
        ActiveCell.Offset(0, 1).Range("A1").Select
        X = X + 1
        If X >= Count Then Exit Function
Next
End Function


Sub Default_TIX_SR_INCIDENT_LOW_2019()
'
' Keyboard Shortcut:
'
'
    Workbooks("ESD_QA_2019.xlsx").Activate
    Sheets("JAN_TIX").Select
    Range("V" & Selection.row) = "Yes"
    Range("W" & Selection.row) = "Yes"
    Range("X" & Selection.row) = "Yes"
    Range("Y" & Selection.row) = "Yes"
    Range("P" & Selection.row).Select
End Sub
Sub TIX_No_Group2Assign_2019()
'
' Keyboard Shortcut:
'
'
    Workbooks("ESD_QA_2019.xlsx").Activate
    Sheets("JAN_TIX").Select
    Range("AA" & Selection.row) = "NA"
    Range("P" & Selection.row).Select
End Sub
Sub TIX_PASS_2019()
'F9
    Range("AD" & Selection.row) = "Pass"
End Sub
Sub TIX_PASS_AND_EMAIL_2019()
'F9
    Range("AD" & Selection.row) = "Pass"
    Call SelectActive_AGENT_TIX_row_2019
    
End Sub
Sub TIX_100_AND_EMAIL_2019()
'F10
    Workbooks("ESD_QA_2019.xlsx").Activate
    Sheets("JAN_TIX").Select
    Range("AD" & Selection.row) = "Pass"
    Call PICKUP_SLA_TIX_2019
    Call Email_TIX_TO_AGENT_2019
    'SendKeys "%s", True
    'Call Back2TIXAndClear_2019
End Sub


Sub TIX_FAIL_2019()
'F11
    Range("AD" & Selection.row) = "Fail"
End Sub
Sub TIX_ProcessFAIL_2019()
    Range("AD" & Selection.row) = "Process Fail"
End Sub
Sub TIX_CLEAR_2019()
    Range("AD" & Selection.row) = ""
End Sub

Sub AF_PSDnum_2019()
'
' Keyboard Shortcut:Ctrl+w
'

'
    Workbooks("ESD_QA_2019.xlsx").Activate
    Sheets("JAN_TIX").Select
    Range("P" & Selection.row).Select
    Range("AB" & Selection.row) = "No"
    Range("AE" & Selection.row) = "Reference Number"
End Sub

Sub AF_IC_Activate15_2019()
'
' Keyboard Shortcut:Ctrl+w
'
'
    Workbooks("ESD_QA_2019.xlsx").Activate
    Sheets("JAN_TIX").Select
    Range("P" & Selection.row).Select
    Range("AB" & Selection.row) = "No"
    Range("AE" & Selection.row) = "IC Activate 15"
End Sub

Sub AF_ProtectedData_2019()
'
' Keyboard Shortcut:Ctrl+w
'

'
    Workbooks("ESD_QA_2019.xlsx").Activate
    Sheets("JAN_TIX").Select
    Range("P" & Selection.row).Select
    Range("AB" & Selection.row) = "No"
    Range("AE" & Selection.row) = "Protected Data"
End Sub