error 13 when setting worksheet listbox
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 |
error 13 when setting worksheet listbox
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 "Amedee Van Gasse" wrote in message ... |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 |
All times are GMT +1. The time now is 04:42 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com