May be those lines help you (Not Testes)
Dim myDate As Date myDate = DateSerial(Year(myDate), Month(myDate), Day(myDate)) Sheets(1).Range("A1:AC1").AutoFilter Field:=11, Criteria1:="<" & myDate
May be those lines help you (Not Testes)
Dim myDate As Date myDate = DateSerial(Year(myDate), Month(myDate), Day(myDate)) Sheets(1).Range("A1:AC1").AutoFilter Field:=11, Criteria1:="<" & myDate
Posting Permissions
Reply With Quote