Dave,
Something along the lines of
ActiveSheet.PivotTables("PivotTable1").PivotSelect "", xlDataAndLabel, True
Selection.Find(What:="2006", LookAt:=xlWhole).EntireColumn.Copy
The specific "What" to look for depends on your actual year values.
HTH,
Bernie
MS Excel MVP
"Dave" <(E-Mail Removed)> wrote in message
news:E3F45035-06AC-4132-A6AB-(E-Mail Removed)...
> Does anyone know how to select a column from a pivot table from a macro? I
> would like to select a column that corresponds to an attribute of the
> horizontal fields. For example, I would like to specify a year as 2006 then
> copy the year no matter which column the data for 2006 is located.
|