Do you mean the normal pivot table Page *DropDown* ?

If so, this does not trigger the Worksheet_Change event, so we have t
find another way of running the macro (a button or whatever). Thi
example uses a double click in the worksheet and assumes that both Pag
cells are range B2. Change this to suit.

'--------------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range
Cancel As Boolean)
Worksheets("Sheet1").Range("B2").Value
ActiveSheet.Range("B2").Value
End Sub
'-------------------------------------------------------

--
Message posted from http://www.ExcelForum.com