We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Dim myDate as Date Dim getRow As Integer myDate = Date With wb.Worksheets("Sheet1") .AutoFilterMode = False 'To turn off the filter in case there is any With .Rows(8) .AutoFilterMode = True 'To turn on the filter .AutoFilter Field:=4, Criteria1:="New" .AutoFilter Field:=9, Criterial:=myDate 'This is the line that error happens .AutoFilter Field:=29, Criteria1:="=s-*" End With getRow = .Range("B2").End(xlDown).Row .Rows("2:" & getRow).Delete shift:=xlUp End With
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.