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
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