Sub SelectICE_Data_4_MGMNT_2018()
'Workbooks("ESD_QA_2018.xlsx").Activate
Sheets("DEC_ICE").Select
Range("C" & Selection.row & "," & "D" & Selection.row & "," & "G" & Selection.row & ":H" & Selection.row & "," & "N" & Selection.row & "," & "P" & Selection.row & "," & "R" & Selection.row & ":AL" & Selection.row).Select
Selection.Copy
Sheets("E2M4CALL").Visible = True
Sheets("E2M4CALL").Select
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        True, Transpose:=True
With Selection
        .HorizontalAlignment = xlLeft
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
'SCORE Fix Formula
Range("G22").Select
Selection.Copy
    Range("B31").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
'Clear Remarks and Comments Section
Range("A2,A36:B47").Select
Selection.ClearContents

Range("A38") = Range("F38").FormulaR1C1
Range("A40") = Range("F40").FormulaR1C1
Range("A42") = Range("F42").FormulaR1C1
'Range("A44") = Range("F44").FormulaR1C1
'Range("A46") = Range("F46").FormulaR1C1

'Loop Feedback Comments populate
Call GetSearchArray_ICE_Mgmt_2019("No", Range("B16:B30"))
Application.Calculate
Worksheets(11).Calculate

'Rows("36:43").EntireRow.AutoFit
'Get Back to Ticket Auditing Next Agent
'Windows("ESD_QA_2018.xlsx:2").Activate
Sheets("Progress&Results").Select
Windows("ESD_QA_2018.xlsx:1").Activate
Sheets("E2M4CALL").Select
Range("A2").Select
End Sub




Sub Email_ICE_CALLS_TO_MGMNT_2018()

Dim AWorksheet As Worksheet
Dim Sendrng As Range
Dim rng As Range

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

'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("D8") & "," & vbNewLine & vbNewLine & "One of your tickets, " & Range("B20") & ", was recently reviewed." & vbNewLine & "Please take the time to review it when you can."
            'Set email properties (to,cc,subject..etc)
             With .Item
                .to = "Blanchard, Natalie (SSC/SPC);"
                .CC = "Desjardins6, Eric (SSC/SPC);Dubois, Alex (SSC/SPC);ESD TL / BSE CE (SSC/SPC)"
                .Subject = "QA - Call Feedback - " & Range("B12") & " / " & Format(Range("B13"), "hh:mm:ss") & " / " & Range("B9")
                .Recipients.ResolveAll
             End With
         End With
    Else                                            'Toggle Email if it's been displayed already
        ActiveWorkbook.EnvelopeVisible = False
    End If
End With
End Sub

Sub Back2ICE_MGMNT_2018()
Windows("ESD_QA_2018.xlsx:1").Activate
Sheets("DEC_ICE").Select
Sheets("E2M4CALL").Visible = False
End Sub
Sub Back2ICE_MGMNT_FORCEBGWHITE_2018()
Windows("ESD_QA_2018.xlsx:1").Activate
Sheets("DEC_ICE").Select
Sheets("E2M4CALL").Visible = False
End Sub

Sub Back2ICE_and_Clear_MGMNT_2018()
Windows("ESD_QA_2018.xlsx:1").Activate
Call ResetFilterREM_ICE_2018
Sheets("E2M4CALL").Visible = False
End Sub