error 1004 when setting pivottable.pagefields

A

Amedee Van Gasse

A code snippet:

Function FillYearMonth(ByVal theWorkbook As String, ByVal theWorkSheet
As String, _
ByVal thePivotTable As String, ByVal thePageField As String)
Dim ws As Worksheet
Set ws = Worksheets(theWorkSheet)
Dim pt As PivotTable
Set pt = ws.PivotTables(thePivotTable)
Dim pf As PivotField
Set pf = pt.PageFields(thePageField)
Dim lb As ListBox
Set lb = Worksheets(theWorkSheet).lstYearMonth
Call FillListBox(pf, lb)
End Function

I keep getting error 1004 after executing the line
Set pf = pt.PageFields(thePageField)


Can anyone point me what is wrong in this code?
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

error 13 when setting worksheet listbox 1
error 13 when setting worksheet listbox 1
Pivot table calculated field 3
Change report firlds in pivot tables and charts with one selection 0
Printing pivot table along with a copy and paste for each page fie 1
Controlling Pivot Table Field Page-2 0
Controlling Pivot Table Page-Field 0
Link Pivot Tables on one filter 2

Top