macro to delete all visible rows in an autofilter

[Jos1972]

Hi,
I have an autofilter on row 13 and then trying to delete all the visible rows
I found somewhere that the below code should work, but it doesn't.
Anyone who could help me crack the code?
Thanks,
Jos


Rows("13:13").AutoFilter Field:=5, Criteria1:="22 - Rabobank 370113144"
.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete

 

[Fluff]

Maybe something like

With ActiveSheet
    .Rows("13:13").AutoFilter Field:=5, Criteria1:="22 - Rabobank 370113144"
    .AutoFilter.Range.Offset(1).EntireRow.Delete
End With

 

[Jos1972]

Maybe something like

With ActiveSheet
    .Rows("13:13").AutoFilter Field:=5, Criteria1:="22 - Rabobank 370113144"
    .AutoFilter.Range.Offset(1).EntireRow.Delete
End With

yess! thanks. Works like a charm..

 

[Fluff]

You're welcome & thanks for the feedback