Filter macro

[verluc]

Deze macro werkt niet correct. Kan iemand een aanpassing geven ?

Sub tst()
 Y = "< " & Application.InputBox(prompt:="Filter: < ", Type:=2)
    With Cells(1).CurrentRegion.Columns(5)
        .AutoFilter 1, "Y"
        .Offset(1).SpecialCells(12).EntireRow.Delete
        .AutoFilter
    End With
End Sub

Met dank

 

[jkpieterse]

De aanhalingstekens van Y verwijderen.

 

[verluc]

Zeer bedankt. Dit was de oplossing.