Playing around a bit more
1. Extracted the 'Make a List' logic to it's own module
2. Added a event handler to sync the question between PTs on that sheet
3. Some cleanup and simplifications
Option Explicit
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim sQuestion As String
Dim PT As PivotTable
sQuestion = Target.PivotFields("QUESTION").CurrentPage
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each PT In Me.PivotTables
PT.PivotFields("QUESTION").ClearAllFilters
PT.PivotFields("QUESTION").CurrentPage = sQuestion
Next
Application.EnableEvents = True
Me.Columns("A:D").ColumnWidth = 100
Me.Columns("A:D").AutoFit
Application.ScreenUpdating = True
End Sub