load listbox

[max1565]

I wrote the following code in excel 2000, win 2000 and it worked. When I try to run it in excel 2002 win xp i get the following message "select method of worksheet class failed" What do I need to change?

Private Sub UserForm_Initialize()
Sheets("work&quot.Select

ListBox1.ColumnCount = 3
ListBox1.RowSource = "a423"


End Sub

Thanks

 

[Bowers74]

Assuming that your ListBox is on a UserForm and not a WorkSheet, you don't need to select the worksheet to create a RowSource for a ListBox or a ComboBox:

Private Sub UserForm_Initialize()
with ListBox1
    .ColumnCount = 3
    .RowSource = Sheets("work").[a4:D23].address
end with
End Sub

I hope this helps!

Peace!

Mike

Never say Never!!!
Nothing is impossible!!!