error 13 when setting worksheet listbox

[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.PivotFields(thePageField)
Dim lb As ListBox
Set lb = Worksheets(theWorkSheet).lstYearMonth
Call FillListBox(pf, lb)
End Function

I keep getting error 13 after executing the line
Set lb = Worksheets(theWorkSheet).lstYearMonth

I checked and there really is a ListBox called lstYearMonth on the
worksheet (on ever worksheet there is a ListBox named lstYearMonth)


Can anyone point me what is wrong in this code?

 

[Jim Rech]

Dim lb As MSForms.ListBox
Set lb = ws.lstYearMonth

An unmodified Listbox is a Forms toolbar listbox while yours seems to be
from the Control Toolbox.

--
Jim
|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.PivotFields(thePageField)
| Dim lb As ListBox
| Set lb = Worksheets(theWorkSheet).lstYearMonth
| Call FillListBox(pf, lb)
| End Function
|
| I keep getting error 13 after executing the line
| Set lb = Worksheets(theWorkSheet).lstYearMonth
|
| I checked and there really is a ListBox called lstYearMonth on the
| worksheet (on ever worksheet there is a ListBox named lstYearMonth)
|
|
| Can anyone point me what is wrong in this code?
|
|
| --
| Amedee