Private Sub Workbook_SheetSelectionChange(ByVal sh As Object, ByVal Target As Range)
Dim pt As PivotTable, pl As Range
For Each sh In ThisWorkbook.Sheets
For Each pt In sh.PivotTables
Application.EnableEvents = False
If Not Intersect(Target, pt.PageRangeCells) Is Nothing Then pt.PageRangeCells(1).Select
Application.EnableEvents = True
Next pt
Next sh
End Sub