VBA and Pivot Tables

[cstimart]

I have a Pivot Table that includes a field "Todays Date". When that field is as report Filter, it appears to have 2 options: (All) and 06/16/2010 [todays date].

Is there a way to select the option that is NOT "(All)"?

I tried recording/altering a Macro to try to select the date, but it doesn't work...but selecting "(All)" does.

Sub Macro1()
Dim PT As PivotTable
Set PT = Sheets(1).PivotTables("PivotTable1")
    
    PT.PivotFields("Todays Date").CurrentPage = "(All)"

End Sub

 

[cstimart]

Nevermind! Solution....Duh!

PT.PivotFields("Todays Date").CurrentPage = Date

 

[cstimart]

Although, I now question what will happen when the data in the Pivot Table has not been updated and the "date" is actually not = Date.

Is there a way I can capture THAT error and not run the associated Macro wen the value in the field is NOt = Date?