AdvancedFilter result range EXCLUDING input column title

[mdmackillop]

Should Mycase be string as shown or should it be a variable. If that is correct try

Dim Deleterow As Long
On Error Resume Next
Deleterow = Application.WorksheetFunction.Match("Mycase", Worksheets("Sheet3").Range("A:A"), 0)
If Deleterow <> 0 Then Rows([Deleterow]).EntireRow.Delete