VBA to Automatically Update Pivot Table Dates

[Jar888]

Is there a way to update dates automatically using VBA in a pivot table?

I've slowly been changing a lot of spreadsheets and updating how formulas and reading things goes, but I'm just not sure what direction to go in with this one, weather I need to redo the spreadsheet or not.

I've got 4 pivot tables that draw information from a data input sheet, which then does some calculations to show down time across my workplace. Two pivot tables are a single date input for the day before today and the other two are a multiple date input for the current month from the 1st until the day before today.

Any help would be greatly appreciated

 

[Flaiban]

In the Project Explorer (Alt+F11), select the Sheet that contains the Pivot tables;
In the Object drop-down box, select Worksheet. In the Procedure drop-down box, select Change event .

Example :

Private Sub Worksheet_Change(ByVal Target As Range)

    ActiveSheet.PivotTables("SHOTCRETE DELAYS").RefreshTable
    ActiveSheet.PivotTables("CBOLT DELAYS").RefreshTable

End Sub

For each Spreadsheet