Get Current WeekEnding

[josephsa]

hello,
i have a pivot table that displays data by WeekEnding (it's every Saturday). i want to create a macro that selects automatically the current week ending.

i have the below code but i'm getting an error.

Sub SwatMBDate()
'
' SwatMBDate Macro
'

ActiveSheet.PivotTables("PivotTable1").PivotFields("Week Ending").CurrentPage _
= Weekday(Date, vbSaturday)
End Sub

 

[josephsa]

hello again,
sorry but forgot to mention that i want to select the weekending of the previous date as the data i have are a day old.