Hi all
Have the following code:
LastrowAD = Cells(Rows.Count, "A").End(xlUp).Row
ActiveSheet.Range("$A$1:$W$" & LastrowAD).AutoFilter Field:=5, Criteria1:=">=" & CLng(DateValue(tdate)) ' Tour date
ActiveSheet.Range("$A$1:$W$" & LastrowAD).AutoFilter Field:=12...