On Mar 11, 10:14*am, "Roger Govier"
<roger@technology4unospamdotcodotuk wrote:
Hi

It worked perfectly for me.
If you would like to mail me a copy of your workbook, I would be interested
in seeing why it wouldn't work in your case.
To mail direct, send to
roger at technology4u dot co dot uk
Change the at and dots to make valid email address

--
Regards
Roger Govier

"Opal" wrote in message

...



Thank you for the follow-up, Roger, but it still didn't work....
I got this working:

Sub PartNoChart1()

Dim PartNo As String

On Error Resume Next
PartNo = Sheets("FSChart1").Range("A1").Value
Sheets("FSChart1").PivotTables("PT1").PivotFields
("PARTNO").CurrentPage = PartNo
Sheets("FSChart1").PivotTables("PT2").PivotFields
("PARTNO").CurrentPage = PartNo

End Sub- Hide quoted text -

- Show quoted text -

I appreciate your offer to go that extra mile for me,
unfortunately, the data is proprietory and I cannot
send it off to you.

However, I do have a question about the line:

For Each pt In ActiveSheet.PivotTables

The sheet with the pivot tables would not be my
active sheet. The tables are in other work
sheets and feed charts found on my main sheet
in the workbook. There are 11 worksheets in
total with various pivots feeding charts on the
main sheet.