Dim PT As PivotTable
x = Sheets("Sheets1").Range("K3").Value
SheetArray = Array("Sheets2", " Sheets3", " Sheets4")
For Each SSHeet In SheetArray
Set PT = Sheets(SSHeet).PivotTables("PivotTable1")
With PT
.PivotCache.Refresh
.PivotFields("Value date").CurrentPage = "(All)"
.PivotFields("Value date").CurrentPage = x
End With
Next
End Sub