Source ListBox from pivotFields located in another workbook

[al.extreme]

I have a userform with two ListBoxs for item transfer (from selected items on the list on the left to the blank list on the right)


Sub ShowDialog()
UserForm1.ListBox1.RowSource = ""
' Add some items to the ListBox
With UserForm1.ListBox1
.RowSource = ""
.AddItem "January"
.AddItem "February"
.AddItem "March"
End With
UserForm1.Show
End Sub



I need help to feed the ListBox1 with the PivotItems, from a different workbook. This is my data source:

Windows(wb2).Activate
SelectPivot 'this is my function to select the tab containint the pivot
ActiveSheet.PivotTables("PivotTable1").PivotFields("Calendar Year/Week")

Instead of having the default "January", "February", "March"... I want to select a couple pivotFields (from a list of aprox. 50 pivot fields) from workbook "wb2"

any help ?

 

[al.extreme]

refrasing my question and using what could be an easier method:

how can I copy the full list of pivot items from "pivottable1" in workbook "wb2" and paste them in "sheet1", cell A1 in workbook 1 ?

after that, I guess is easier to reference the listbox, right?

any hints?