Try

Criteria2:= dateserial(year(date),month(date)+3,day(date))

--

HTH

RP
(remove nothere from the email address if mailing direct)


"mvyvoda" wrote in message
...
newbie here, i'm trying to filter a column in a macro for current date + 3
months.

here what i got so far:

Application.Goto Reference:="Decision_Window"
myDecisionWindowColumn = ActiveCell.Column
Selection.AutoFilter Field:=myDecisionWindowColumn, Criteria1:=Now(),
Operator:=xlAnd, _
Criteria2:=Now() + 3

obviously the "+ 3" doesn't work... please help,

thanks in advance,
mark