How to change the Pivot table's last date

[Feroz90]

Hi,

I have been using the below code for getting the last date in Pivot.

ActiveSheet.PivotTables("PivotTable8").PivotFields("Date").ClearAllFilters
ActiveSheet.PivotTables("PivotTable8").PivotFields("Date").CurrentPage = _
Split(Now() - 1, " ")(0)

I need a code for last working day, i.e. If it is Friday, it should change as Split(Now() - 3, " ")(0).

Please assist.

 

[Feroz90]

Hi All,

Does anyone have any suggestions.

Thanks