macro button to update filters and refresh pivot tables in other sheets

Okay hopefully someone can take a stab at this!!! I have a summary sheet that I would like to be able to change the date on. This date in turn feeds three different pivot tables (call them PivotTable1, PivotTable2, PivotTable3) in three different sheets (call them Sheet1, Sheet2, Sheet3). The field that needs to be affected in each pivot table is "Trade Date". One sheet needs to only filter on that specific date, while the other two need the filter to return every date besides the Date provided. I tried the worksheet specific type of macro and it still required navigating to each separate sheet and updating the date individually, Also for whatever reason it became unstable and crashed the sheet.

Please Please Please someone help... I've tried finding different solutions and nothing I can find does specifically what I'm looking for...

I really appreciate your help in advance!!!

Used the following code and it works like a charm... actually only needed to update two pivots....


Sub DeltaFilter()
Dim CD1 As PivotField
Dim CD2 As PivotField

Application.ScreenUpdating = False
RefreshAllPivotTables

Set CD1 = Sheet3.PivotTables("PivotTable3").PivotFields("Trade Date")
Set CD2 = Sheet2.PivotTables("PivotTable6").PivotFields("Trade Date")

With CD1 'Filter "New Deals" tab
.ClearAllFilters
.CurrentPage = Sheets("Summary").Range("G3").Value
End With

With CD2 'Filter "Curve Shift" tab
.ClearAllFilters
.CurrentPage = "(All)"
.PivotItems(Sheets("Summary").Range("G3").Value).Visible = False
.EnableMultiplePageItems = True
End With

Sheets("Summary").Activate
Application.ScreenUpdating = True
End Sub