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