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

Sub GQToCallAgentAudit()
    'Workbooks("1.SRXXXXXXX_QA_0000_Call&Ticket.xlsx").Activate
    'Sheets("Call").Select
End Sub

Sub GQToCallAgentAudit2()
    'Workbooks("2.SRXXXXXXX_QA_0000_Call&Ticket.xlsx").Activate
    'Sheets("Call").Select
End Sub

Sub GQToCallAgentAudit3()
    'Workbooks("3.SRXXXXXXX_QA_0000_Call&Ticket.xlsx").Activate
    'Sheets("Call").Select
End Sub

Sub GQToTickets()
    Sheets("18_July_Tickets").Select
End Sub

Sub GQToCalls()
    Sheets("18_July_Calls").Select
End Sub

Sub SaveAsMacro()
'
' NameFileMacro Macro
'
'
    Sheets("Call").Select
    Range("F2").Select
    Selection.Copy
    Application.Dialogs(xlDialogSaveAs).Show
End Sub



Sub PasteScore3()
'
' PasteCall Macro
' Keyboard Shortcut: ctrl+m
'
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveCell.Offset(-1, 0).Select
    ActiveCell.Range("A1:A2").Select
    Application.CutCopyMode = False
    Selection.Merge
    Sheets("18_July_Calls").Activate
    ActiveWorkbook.Save
    'Workbooks("1.SRXXXXXXX_QA_0000_Call&Ticket.xlsx").Activate
    'Workbooks("2.SRXXXXXXX_QA_0000_Call&Ticket.xlsx").Activate
     Workbooks("3.SRXXXXXXX_QA_0000_Call&Ticket.xlsx").Activate
    Sheets("Call").Select
End Sub
Sub PasteScore2()
'
' PasteCall Macro
' Keyboard Shortcut: ctrl+m
'
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveCell.Offset(-1, 0).Select
    ActiveCell.Range("A1:A2").Select
    Application.CutCopyMode = False
    Selection.Merge
    Sheets("18_July_Calls").Activate
    ActiveWorkbook.Save
    'Workbooks("1.SRXXXXXXX_QA_0000_Call&Ticket.xlsx").Activate
    Workbooks("2.SRXXXXXXX_QA_0000_Call&Ticket.xlsx").Activate
    'Workbooks("3.SRXXXXXXX_QA_0000_Call&Ticket.xlsx").Activate
    Sheets("Call").Select
End Sub
Sub PasteScore1()
'
' PasteCall Macro
' Keyboard Shortcut: ctrl+m
'
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveCell.Offset(-1, 0).Select
    ActiveCell.Range("A1:A2").Select
    Application.CutCopyMode = False
    Selection.Merge
    Sheets("18_July_Calls").Activate
    ActiveWorkbook.Save
    'Workbooks("1.SRXXXXXXX_QA_0000_Call&Ticket.xlsx").Activate
    'Workbooks("2.SRXXXXXXX_QA_0000_Call&Ticket.xlsx").Activate
    'Workbooks("3.SRXXXXXXX_QA_0000_Call&Ticket.xlsx").Activate
    'Sheets("Call").Select
End Sub

Sub RedoGQToNextCellRight()
'
' RedoGQToNextCellRight Macro
'
' Keyboard Shortcut: Ctrl+y
'
    Application.Run "AuditsScoring_2018.xlsm!TicketNumberCellMerge"
    ActiveCell.Offset(0, 1).Select
End Sub
Sub SelectionCALLScore()
Dim agent
'
' SelectionScore Macro
'
' Keyboard Shortcut: Ctrl+t
'
'Disable Application features to increase speed
With Application
    .ScreenUpdating = False
    '.EnableEvents = False
End With
    agent = Range("G1")
    Range("K4:K31").Select
    Selection.Copy
    Workbooks("AuditsScoring_2018.xlsm").Activate
    Sheets("18_July_Calls").Select
    Range("A3") = agent
Call AgentChoice_CALLSCORE_JULY
   
'Re-enable Application features
With Application
    .ScreenUpdating = True
    '.EnableEvents = True
End With
    
End Sub
Sub SelectionTICKETscore()
'
' SelectionTICKETscore Macro
'
' Keyboard Shortcut:
'
'Disable Application features to increase speed
With Application
    .ScreenUpdating = False

End With
    agent = Range("G1")
    Range("K4:K26").Select
    Selection.Copy
    Workbooks("AuditsScoring_2018.xlsm").Activate
    Sheets("18_July_Tickets").Select
    Range("A3") = agent
    Call AgentChoice_TIKSCORE_JULY
    
'Re-enable Application features
With Application
    .ScreenUpdating = True

End With
    
End Sub

Sub Sel2TICKETscore()
'
' SelectionTICKETscore Macro
'
' Keyboard Shortcut:
'
Sheets("Ticket").Select
    Range("K4:K26").Select
    Selection.Copy
Sheets("Call").Select
Workbooks("AuditsScoring_2018.xlsm").Activate
Sheets("18_July_Tickets").Select

End Sub


Sub TicketNumberCellMerge()
'
' TicketNumberCellMerge Macro
'
' Keyboard Shortcut:
'

    ActiveCell.Range("A1:A2").Select
    Application.CutCopyMode = False
    Selection.Merge
End Sub
Sub ResetTicketNumUndoMerge()
'
' ResetTicketNumUndoMerge Macro
' Keyboard Shortcut:ctrl+t

'

'
    Selection.UnMerge
    ActiveCell.Select
    Selection.Cut
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
End Sub




Public Sub SHOW_ALL()
'This macro will unhide all the columns in the
'specified range.
Dim c As Range
Dim d As Range
Dim e As Range
Dim f As Range

    For Each c In Worksheets("18_July_Calls").Range("A1:CZ1").Cells
    
        
            c.EntireColumn.Hidden = False
            
    Next c

For Each d In Worksheets("18_July_Tickets").Range("A1:GL1").Cells
    
        
            d.EntireColumn.Hidden = False
            
    Next d
    
    For Each e In Worksheets("18_June_Calls").Range("A1:DZ1").Cells
    
        
            e.EntireColumn.Hidden = False
            
    Next e

For Each f In Worksheets("18_June_Tickets").Range("A1:FL1").Cells
    
        
            f.EntireColumn.Hidden = False
            
    Next f

End Sub