Refresh Multipe Pivot Table Macro

I am trying to write a macro to update multiple pivot tables on a mutiple tabs. Here is what I have so far. The commas between the pivot table numbers is not working. Can you help me to put this together. Thanks!

Sheets("Question 1 pivot table").Select
ActiveSheet.PivotTables("PivotTable2"),("PivotTable4"),("PivotTable5"),("PivotTable6"),("PivotTable8"),("PivotTable3").RefreshTable

Sheets("Question 2 pivot table ").Select
ActiveSheet.PivotTables("PivotTable2"),("PivotTable9"),("PivotTable10"),("PivotTable12"),("PivotTable15").RefreshTable

Sheets("Question 3 pivot table").Select
ActiveSheet.PivotTables("PivotTable2"),("PivotTable3"),("PivotTable4"),("PivotTable5"),("PivotTable6").RefreshTable

Sheets("Question 4 pivot table ").Select
ActiveSheet.PivotTables("PivotTable5"),("PivotTable6"),("PivotTable7"),("PivotTable8"),("PivotTable9").RefreshTable

Sheets("Question 5 pivot table ").Select
ActiveSheet.PivotTables("PivotTable1"),("PivotTable2"),("PivotTable3"),("PivotTable4"),("PivotTable5").RefreshTable