the criteria need to be a serial date try this change. You don't need a
string date.


Sub Due14()
'

' filter for next status change due in next 14 days
'
B4next$ = "<" & (Now() + 14)
Selection.AutoFilter Field:=17, Criteria1:=B4next$

End Sub

"PVD Wales" wrote:

The following small macro results in no rows showing in the auto filtered
table. If I open the custom the filter dialog then click on OK the expected
rows are shown. I am using excel 2003.
Any ideas?

Sub Due14()
'

' filter for next status change due in next 14 days
'
B4next$ = "<" + Format(Now() + 14, "short date")
Selection.AutoFilter Field:=17, Criteria1:=B4next$

End Sub