unable to set the default property of the pivot item class

[lprabhu1107]

Hi

I have a macro to refresh pivottble and change date in page field.Date range is for a period of 2 months i.e. May and jun currently. I need todays date in the pagefield whenevr i activate the macro. The macro is below

Sub Macro2()

Sheets("FJY Pivot").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable1").PivotFields("Snapshot").CurrentPage = _
Format(Date, "dd-mmm")
Sheets("Total Pivot").Select
ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable2").PivotFields("Snapshot").CurrentPage = _
Format(Date, "dd-mmm")
Sheets("Trend MKT Pivot").Select
ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh
Sheets("Trend TTL Pivot").Select
ActiveSheet.PivotTables("PivotTable4").PivotCache.Refresh
End Sub

When i run this macro i get the following error code "unable to set the default property of the pivot item class"

any help is appreciated

 

[lprabhu1107]

anyone?

 

[lprabhu1107]

any luck with the above

 

[lprabhu1107]

Hi All,

iam dwelling on this for a week..any solutions pls........

 

[lprabhu1107]

Hi All,

any ideas to solve the above problem pls....

Regards

Prabhu