Sub sb_Copy_Save_Worksheet_As_Workbook()
     Dim wb As Workbook
     'Dim startFileName As String
     Dim NewSaveName As String
     Dim EvalMonth As String
     Dim ICE As String
     Dim Ticket As String
     Dim AgentSubGroup As String
     EvalMonth = "2018_07July"
     ICE = Range("G1")
     Ticket = Range("F2")
     AgentSubGroup = "04_Normal"
         
    Set wb = Workbooks.Add
    ThisWorkbook.Sheets("Ticket").Copy Before:=wb.Sheet1(1)
        
    NewSaveName = "C:\Users\trudel1\Documents\00.QA\KIT\" & EvalMonth & "\" & AgentSubGroup & "\X." & Ticket & "_QA_" & "ICE" & "_Ticket" & ".xlsx"
    wb.SaveAs Filename:=NewSaveName
End Sub

Sub Test_Email()

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

Set Sendrng = Worksheets("Ticket").Range("A1:U24") '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 = "GQod day," & vbNewLine & vbNewLine & "One of your ticket was recently reviewed" & vbNewLine
            'Set email properties (to,cc,subject..etc)
             With .Item
                .To = "luc.trudel3@canada.ca"
                .CC = "luc.trudel3@canada.ca"
                .Subject = Range("G1") & ": Agent ticket score is:" & Range("F21")
                .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 FilenameFromTicketNumberICE()
Dim startFileName As String
Dim ICEnum As String
Dim replacement1 As String
Dim replacement2 As String
Dim NewSaveName As String
Application.DisplayAlerts = False
  startFileName = ActiveWorkbook.FullName
  ICEnum = Left(Range("G1"), 4)
  replacement1 = Replace(startFileName, "0000", ICEnum)
  replacement2 = Replace(replacement1, "SRXXXXXXX", Range("F2"))
  NewSaveName = replacement2
  ActiveWorkbook.SaveAs Filename:=NewSaveName
  Application.DisplayAlerts = True
  ActiveWorkbook.Save
End Sub

Sub SaveTikToFocus()
    
  Workbooks("A.SRXXXXXXX_QA_0000_Ticket.xlsx").Activate
  Range("E1").Select
  ActiveWorkbook.SaveAs ("C:\Users\trudel1\Documents\00.QA\KIT\2018_07July\01_Focus\A.SRXXXXXXX_QA_0000_Ticket.xlsx")
  ActiveWorkbook.SaveAs ("C:\Users\trudel1\Documents\00.QA\KIT\2018_07July\01_Focus\B.SRXXXXXXX_QA_0000_Ticket.xlsx")
  
End Sub
Sub SaveToFocus()
    
  Workbooks("1.SRXXXXXXX_QA_0000_Call&Ticket.xlsx").Activate
  Sheets("Call").Select
  Range("E1").Select
  ActiveWorkbook.SaveAs ("C:\Users\trudel1\Documents\00.QA\KIT\2018_07July\01_Focus\1.SRXXXXXXX_QA_0000_Call&Ticket.xlsx")
  ActiveWorkbook.SaveAs ("C:\Users\trudel1\Documents\00.QA\KIT\2018_07July\01_Focus\2.SRXXXXXXX_QA_0000_Call&Ticket.xlsx")
  ActiveWorkbook.SaveAs ("C:\Users\trudel1\Documents\00.QA\KIT\2018_07July\01_Focus\3.SRXXXXXXX_QA_0000_Call&Ticket.xlsx")

End Sub