IF based on date

Giganews Newsgroups
Subject: IF based on date
Posted by:  flow23
Date: Thu, 4 May 2006

I have a macro which is fine. But part of it has to be done manually.

e.g. when the new financial year begins..(01st April of each year)

a new field needs to be addded ( in this case I added manually 2005)

With ActiveSheet.Pivottables("a1").PivotFields("Campaign year")
..Orientation = xlPageField
..Position = 1
..PivotItems("2005").Visible = False
..PivotItems("2004").Visible = False
..PivotItems("pre 2004").Visible = False
End With

Is it possible to write a if statement where it checks for date and hide the
pivotitems accordingly?