Sub PICKUP_SLA_TIX_Pass_2019()
    Workbooks("ESD_QA_2019.xlsx").Activate
    Sheets("JAN_TIX").Select
    Call TIX_PASS_2019
    Range("D" & Selection.row & "," & "H" & Selection.row & "," & "K" & Selection.row & ":L" & Selection.row & "," & "P" & Selection.row & ":AE" & Selection.row).Select
    Selection.Copy
    Call PICKUP_AGENT_TIX_row_2019
End Sub
Sub PICKUP_SLA_TIX_Fail_2019()
    Workbooks("ESD_QA_2019.xlsx").Activate
    Sheets("JAN_TIX").Select
    Call TIX_FAIL_2019
    Range("D" & Selection.row & "," & "H" & Selection.row & "," & "K" & Selection.row & ":L" & Selection.row & "," & "P" & Selection.row & ":AE" & Selection.row).Select
    Selection.Copy
    Call PICKUP_AGENT_TIX_row_2019
End Sub

Sub PICKUP_AGENT_TIX_row_2019()

Workbooks("ESD_QA_2019.xlsx").Activate
Sheets("E2A4TIX").Visible = True
Sheets("E2A4TIX").Select
Range("B7").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        True, Transpose:=True
Call Pretty_Fix_Pasted_TIX_Data
Call Pretty_IndentLeft1_TIX_Data
'SCORE Fix Formula
Range("G28").Select
Selection.Copy
Range("B24").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

'Call sub that will center the Score, Result and WhatFailed
Call Center_TIX_SR_WF

'Make Clear seperation for the QA Questions Sections THICK BLUE
Call Thick_Border_QA_Questions_Section

'Clear Remarks and Comments Section
Range("A3,A29:B42").Select
Selection.ClearContents

Range("H13") = "Doc ID"
Range("G13") = "Get Answers Article Title"
Range("30:42").EntireRow.Hidden = False
Range("A32") = Range("F32").FormulaR1C1
Range("A34") = Range("F34").FormulaR1C1
Range("A36") = Range("F36").FormulaR1C1
Range("A38") = Range("F38").FormulaR1C1

'Loop Feedback Comments populate
Call GetSearchArrayTIX_Agent_2019("No", Range("B11:B23"))
Application.Calculate



'Rows("").EntireRow.AutoFit

'Check if 100%, add good job message
If Range("B24").Value = 100 Then
Range("A29") = Range("G10")
End If

'Get Back to Ticket Auditing Next Agent
Windows("ESD_QA_2019.xlsx:2").Activate
Sheets("Progress&Results").Select
Windows("ESD_QA_2019.xlsx:1").Activate
Sheets("E2A4TIX").Select
'Highlight reference SR ticket #
Call HighlightYellow_TIX_SR_REF
'Hide Empty below rows
Call UNHIDE_EmptyRows_2019("", Range("A3:A4"))
Call UNHIDE_EmptyRows_2019("", Range("A31:A41"))
End Sub
Sub Email_TIX_TO_AGENT_2019()
Dim AWorksheet As Worksheet
Dim Sendrng As Range
Dim rng As Range

Set Sendrng = Worksheets("E2A4TIX").Range("A1:B54") 'Set specific Range to be Copied to the Email
Set AWorksheet = ActiveSheet    'Remember the Active Sheet

'Hide Empty below rows
Call HideEmptyRows_2019("", Range("A3:A4"))
Call HideEmptyRows_2019("", Range("A31:A41"))

'Application.Calculate

'Disable Application features to increase speed
With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With

With Sendrng
         'Select the worksheet with the range you want to send
         .Parent.Select

         'Remember the ActiveCell on that worksheet
         Set rng = ActiveCell

         'Select the range you want to mail
         .Select

         'Create the mail and send it
    If ActiveWorkbook.EnvelopeVisible = False Then  'Toggle Email if it's not displayed already
         ActiveWorkbook.EnvelopeVisible = True
         With .Parent.MailEnvelope
            'Add a intro to the email before mailing the selected range.
            '.Introduction = "Hello " & Range("H7") & "," & vbNewLine & vbNewLine & "I recently audited one of your tickets.  It is ticket # " & Range("B9") & "." & vbNewLine & "Please take the time to review it when you can."
            'Set email properties (to,cc,subject..etc)
             With .Item
                '.Color = "FFFFFF"  'Potential Need to Fix hex code FFFFFF, FFF, #FFF
                '.ThemeColor = "xlThemeColorLight"
                .to = Range("I8")
                .CC = "ESD TL / BSE CE (SSC/SPC)"
                If Range("A29") = Range("G10") Then
                    .Subject = "QA - Ticket Feedback - " & Range("B9") & " - " & Range("A29")
                ElseIf Range("B29") = "Fail" Then
                    .Subject = "QA - *FAILED Ticket Feedback - " & Range("B9") & " - [" & Range("A31") & "]" & " - [" & Range("A33") & "]" & " - [" & Range("A35") & "]"
                ElseIf Range("B29") = "Process Fail" Then
                    .Subject = "QA - *PROCESS FAILED Ticket Feedback - " & Range("B9") & " - [" & Range("A31") & "]" & " - [" & Range("A33") & "]" & " - [" & Range("A35") & "]"
                
                ElseIf Range("A33") = "" Then
                    .Subject = "QA - Ticket Feedback - " & Range("B9") & " - [" & Range("A31") & "]"
                ElseIf Range("A35") = "" Then
                    .Subject = "QA - Ticket Feedback - " & Range("B9") & "]" & " - [" & Range("A31") & "]" & " - [" & Range("A33") & "]"
                
                Else
                    .Subject = "QA - Ticket Feedback - " & Range("B9") & " - [" & Range("A31") & "]" & " - [" & Range("A33") & "]" & " - [" & Range("A35") & "]"
                End If
                .Recipients.ResolveAll
             End With
         End With
    Else                                            'Toggle Email if it's been displayed already
        ActiveWorkbook.EnvelopeVisible = False
        'UNHIDE Empty below rows
        Call UNHIDE_EmptyRows_2019("", Range("A31:A41"))
        Call UNHIDE_EmptyRows_2019("", Range("A3:A4"))
        Application.Calculate
    End If
    
End With
End Sub
Sub ResetFilterREM_AfterEmailSent_2019()
    Workbooks("ESD_QA_2019.xlsx").Activate
    Sheets("JAN_TIX").Visible = True
    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").Select
    ActiveSheet.ChartObjects("TIX_prog_chart").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("ICE_prog_chart").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    'Workbooks("E_PREP_JAN_QA.xlsm").Activate
    Workbooks("ESD_QA_2019.xlsx").Activate
    Windows("ESD_QA_2019.xlsx:1").Activate
    Sheets("JAN_TIX").Select
    ActiveWindow.Zoom = 60
    Windows("ESD_QA_2019.xlsx:2").Activate
    Sheets("Progress&Results").Select
    ActiveWindow.Zoom = 62
End Sub

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

Sub Back2TIX_AGENT_2019()
Windows("ESD_QA_2019.xlsx:1").Activate
Sheets("E2A4TIX").Visible = False
Sheets("JAN_TIX").Select
End Sub



Sub UNHIDE_E2A4TIX_2019()
Sheets("E2A4TIX").Visible = True
End Sub