vba for excel (pivottable)

I want to link several Pivottables over several worksheets. So far i've managed to link the pagefields using this code:

dim PvtName as string

PvtName = "Pivottable"
CurSelect = Sheets("Category_Invoice").PivotTables(PvtName & "1").PivotFields(dimname).CurrentPageName
Sheets(sheetname).PivotTables(PvtName & CStr(i)).PivotFields(dimname). _
CurrentPageName = CurSelect



This works great. The problem I have is the linking of Columnfields. Any reaction would be greatly appreciated.

Thanks!