[Fuzz]

Does this help?

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets(“SheetName”).PivotTables(“PivotTableNam e”).PivotCache.Refresh
End Sub

http://www.eonesolutions.com/blog-po...hable-reports/ You could put it in your vba.