Filter and delete rows based on value from a cell

[Woodie]

Hello all

Can you please help on this

I have a worksheet with columns "A:AC" and I want to filter on Column "N" and delete all rows NOT equal to Sheet5.Range("C2").
This is my code but it is not working


With Sheets("Data")
If .AutoFilterMode Then .AutoFilterMode = False
Intersect(.UsedRange, .Range("N:N")).AutoFilter 1, "<>" & Sheet5.Range("C2")
.AutoFilter.Range("N:N").EntireRow.Delete
.AutoFilterMode = False
End With

[Fluff]

Cross posted