Hi,

Sheet3.PivotTables("PivotTable2").PivotFields("Typ e").CurrentPage = _
"Intercooler"

I have a macro which links to nine other workbooks which are identical
in layout. The macro loops through all nine workbooks and enters data from
the same place in each workbook into Sheet1 in my workbook. I have a Pivot
Table (which is refreshed each time in the loop) using this data, and a
print routine that prints the data from all nine workbooks, the idea being
to automate printing a daily report from each location.
In the piece of code above, "Intercooler" is one of a hundred or so
items that show in the Pivot Table dropdown list. My question is :- Is it
possible to have "Intercooler" inserted in the code via a cell value in the
worksheet in a similar way to for example

Range([A1]).Copy

My aim is to use a Combobox in my workbook to select the category to
print so that I don't have to alter the code if a different category is
required,

Any advice much appreciated,

Regards,

Alan.

Windows XP Pro
Office XP Pro