Sub ClearFiltersAndUnhidePOP_TIX_2019()
'
' ClearFiltersAndUnhide Macro
'

    
    
    Workbooks("ESD_QA_2019.xlsx").Activate
    Windows("ESD_QA_2019.xlsx:1").Activate
    Sheets("JAN_ICE").Visible = False
    Sheets("JAN_TIX").Visible = True
    ActiveSheet.Unprotect
    Application.WindowState = xlNormal
    Windows("ESD_QA_2019.xlsx:2").Activate
    Windows("ESD_QA_2019.xlsx:1").Activate
    Sheets("JAN_TIX").Select
    Cells.Select
    Selection.EntireColumn.Hidden = False
    Selection.EntireRow.Hidden = False
    'Range("ESD_JAN_TIX[[#Headers],[Audit Status]]").Activate
    'ActiveSheet.ShowAllData
    'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.Unprotect
End Sub

Sub CopyPasteValueToRemoveVLOOKUP_2019()
    Range("K" & Selection.row & ":O" & Selection.row).Select
    Selection.Copy
    Range("K" & Selection.row & ":O" & Selection.row).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveCell.Offset(1, 0).Select
    Application.CutCopyMode = False
End Sub