Filtering macro gives error

[livinglegend629]

Hey everyone,
I unfortunately inherited this workbook so I'm trying to add/update with new parameters.

Everything else works fine but this part get caught up at the third and fourth (depending on which cell is populated) If Not statement, give me a run-time error 1004:

If Not (IsEmpty([N25])) Then 'PVC
ThisWorkbook.Sheets("Equipment").Range("K2:P2").AutoFilter Field:=5, Criteria1:="CPVC", Operator:=xlOr, Criteria2:="All Options"
ThisWorkbook.Sheets("Fittings").Range("J2:N2").AutoFilter Field:=3, Criteria1:="P-", Operator:=xlOr, Criteria2:="All Options"
End If

If Not (IsEmpty([N26])) Then 'CPVC
ThisWorkbook.Sheets("Equipment").Range("K2:P2").AutoFilter Field:=5, Criteria1:="CPVC", Operator:=xlOr, Criteria2:="All Options"
ThisWorkbook.Sheets("Fittings").Range("J2:N2").AutoFilter Field:=3, Criteria1:="C-", Operator:=xlOr, Criteria2:="All Options"
End If

If Not (IsEmpty([N27])) Then 'PP
ThisWorkbook.Sheets("Equipment").Range("K2:P2").AutoFilter Filed:=5, Criteria1:="PP", Operator:=xlOr, Criteria2:="All Options"
ThisWorkbook.Sheets("Fittings").Range("J2:N2").AutoFilter Field:=3, Criteria1:="PP-", Operator:=xlOr, Criteria2:="All Options"
End If

If Not (IsEmpty([N28])) Then 'PVDF
ThisWorkbook.Sheets("Equipment").Range("K2:P2").AutoFulter Filed:=5, Criteria1:="PV", Operator:=xlOr, Criteria2:="All Options"
ThisWorkbook.Sheets("Fittings").Range("J2:N2").AutoFilter Field:=3, Criteria1:="PV-", Operator:=xlOr, Criteria2:="All Options"
End If

I don't understand why the first two If Not statements work correctly but the third and fourth do not.

Any help would be greatly appreciated.

[rkey]

in your 3rd, there is "Filed" in stead of Field
in your 4th there is "AutoFulter" in stead of "AutoFilter"

[livinglegend629]

Wow, I feel really dumb, fixing those typos did the trick. It's hard to catch when you've been staring at the same code for a while.