How do you load data into a listbox on a new UserForm using VBA?

[Apollo6]

I have never used forms with VBA but am experienced in VB but what I would do in VB is not working in VBA.

I have a user-form called frmPrint with a listbox called lstReports.

From a separate procedure I call the form:
frmPrint.Show

I have a procedure in frmPrint:
Private Sub Form_Load()
'Load the ListBox with available reports...

lstReports.AddItem "Arrecap.xls"
lstReports.AddItem "Ar-Phy~2.xls"
lstReports.AddItem "Ar-Cli2.xls"
lstReports.AddItem "Trendd~1.xls"
lstReports.AddItem "Trendd~2.xls"
lstReports.AddItem "Arpaid.xls"
lstReports.AddItem "Payrchrg.xls"
lstReports.AddItem "Research.xls"
lstReports.AddItem "Ptrad.xls"

End Sub

This is apparently not the correct way to load the listbox because nothing is happening...

I have read about loading the list box from a spreadsheet data range(ControlSource), but I do not want to use that method.

Thanks for any suggestions.

 

[dwilson01]

Your code works fine for me in Excel 2000 and Word 2000 with one minor adjustment. There isn't a

Private Sub UserForm_Load()

Try

Private Sub UserForm_Initialize()

ListBox1.AddItem "Arrecap.xls"
ListBox1.AddItem "Ar-Phy~2.xls"
ListBox1.AddItem "Ar-Cli2.xls"
ListBox1.AddItem "Trendd~1.xls"
ListBox1.AddItem "Trendd~2.xls"
ListBox1.AddItem "Arpaid.xls"
ListBox1.AddItem "Payrchrg.xls"
ListBox1.AddItem "Research.xls"
ListBox1.AddItem "Ptrad.xls"

End Sub

Dave

 

[Apollo6]

That's the ticket!!! Thanks for the tip!!!