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