Sub ICE_Auditing_2019()
Workbooks("ESD_QA_2019.xlsx").Activate
'Hide all other Worksheets
Sheets("JAN_TIX").Visible = False

'Keep these sheets visible
'Sheets("ESD_Agents").Visible = True
Sheets("JAN_ICE").Visible = True

'First Window with ICE Auditing stuff ready
Windows("ESD_QA_2019.xlsx:1").Activate
Sheets("JAN_ICE").Select
Call Show_ALL_Cells_2019
Range("A:A,C:C,E:F,I:L,Q:Q,AN:AP").EntireColumn.Hidden = True
ActiveWindow.Zoom = 60
Call REM_ICE_ResetFilter_2019

'Second Window with Progress&Results
Sheets("Progress&Results").Visible = True
Windows("ESD_QA_2019.xlsx:2").Activate
Sheets("Progress&Results").Select
ActiveWindow.Zoom = 62

'Setup ICE keyboard shortcuts
Call ICE_Bindings_2019

'Change path to local drive from Shared drive paths
Call WAV_ON_Local_Drive_2019
End Sub

Sub HideworkbookSheets_2019()
For Each sh In Sheets
 sh.Visible = True
Next sh
Sheets("Progress&Results").Visible = True
End Sub

Sub ICE_ShowAuditFeedbackReady_2019()
Range("P:T").EntireColumn.Hidden = False
Range("Q:Q").EntireColumn.Hidden = True
End Sub
Sub ICE_ShowInfowebID_2019()

Range("J:J").EntireColumn.Hidden = False
End Sub

Sub ICE_ShowTicketNumCol_2019()

Range("U:U").EntireColumn.Hidden = False
End Sub

Sub ICE_ShowCallsAvail_2019()
Range("O:O").EntireColumn.Hidden = False
End Sub

Sub REM_ICE_ResetFilter_2019()
Workbooks("ESD_QA_2019.xlsx").Activate
Sheets("JAN_ICE").Select
    ActiveSheet.ListObjects("ESD_JAN_ICE").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("ESD_QA_2019.xlsx").Activate
    Windows("ESD_QA_2019.xlsx:2").Activate
    ActiveWindow.ScrollColumn = 1
    Sheets("Progress&Results").Activate
    Windows("ESD_QA_2019.xlsx:1").Activate
    ActiveWindow.ScrollColumn = 1
    Sheets("JAN_ICE").Select
End Sub
Sub ICEdefault_ICE_Values_2019()
    Workbooks("ESD_QA_2019.xlsx").Activate
    Sheets("JAN_ICE").Select
    Range("V" & Selection.row).Select
    Call Default_ICE_Values_2019
End Sub
Sub Default_ICE_Values_2019()
'
' Keyboard Shortcut: ctrl+q
'
'
    
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, -14).Range("A1").Select
End Sub
Sub ICEreset_ICE_Values_2019()
    Workbooks("ESD_QA_2019.xlsx").Activate
    Sheets("JAN_ICE").Select
    Range("V" & Selection.row).Select
End Sub

Sub RESET_ICE_Values_2019()
'
' Keyboard Shortcut: ctrl+t
'

'
    Range("V" & Selection.row) = ""
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = ""
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = ""
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = ""
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = ""
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = ""
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = ""
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = ""
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = ""
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = ""
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = ""
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = ""
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = ""
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = ""
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = ""
    ActiveCell.Offset(0, -14).Range("A1").Select
End Sub
Sub ICEna_ICE_Values_2019()
    Workbooks("ESD_QA_2019.xlsx").Activate
    Sheets("JAN_ICE").Select
    Range("V" & Selection.row).Select
End Sub
Sub Default_ICE_NA_Values_2019()
'
' Keyboard Shortcut: ctrl+
'

'
    Range("V" & Selection.row) = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "NA"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "NA"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "NA"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "Yes"
    ActiveCell.Offset(0, -14).Range("A1").Select
End Sub

Sub ICE_PASS_2019()
    Range("AK" & Selection.row) = "Pass"
End Sub
Sub ICE_PASS_AND_EMAIL_2019()
    Range("AL" & Selection.row) = "Pass"
    Call SelectActive_AGENT_ICE_row_2019
    Call Email_ICE_CALLS_TO_AGENT_2019
End Sub

Sub ICE_FAIL_2019()
    Range("AK" & Selection.row) = "Fail"
End Sub
Sub ICE_ProcessFAIL_2019()
    Range("AL" & Selection.row) = "Process Fail"
End Sub
Sub ICE_CLEAR_2019()
    Range("AL" & Selection.row) = ""
End Sub


Sub WAV_ON_Shared_Drive_2019()
'PURPOSE: Find & Replace text/values throughout entire workbook
'SOURCE: www.TheSpreadsheetGuru.com

Dim sht As Worksheet
Dim fnd As Variant
Dim rplc As Variant

fnd = "C:\Users\trudel1\Music"
rplc = "S:\GTIS\WMSDServ\Quality Assurance\ESD\Wav"

For Each sht In ActiveWorkbook.Worksheets
  sht.Cells.Replace what:=fnd, Replacement:=rplc, _
    LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
    SearchFormat:=False, ReplaceFormat:=False
Next sht

End Sub

Sub WAV_ON_Local_Drive_2019()
'PURPOSE: Find & Replace text/values throughout entire workbook
'SOURCE: www.TheSpreadsheetGuru.com

Dim sht As Worksheet
Dim fnd As Variant
Dim rplc As Variant

fnd = "S:\GTIS\WMSDServ\Quality Assurance\ESD\Wav"
rplc = "C:\Users\trudel1\Music"

For Each sht In ActiveWorkbook.Worksheets
  sht.Cells.Replace what:=fnd, Replacement:=rplc, _
    LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
    SearchFormat:=False, ReplaceFormat:=False
Next sht

End Sub