Missing link

[Wes]

Hey all,

I'm struggling with this line of code. I'm trying to populate a list box from a specific form. What I have below just doesn't work. appreciate any help on this.

Private Sub UserForm_Initialize()

ListBox1.ColumnCount = 5

PROBLEM LINE:
ListBox1.RowSource = Sheets("InformationSheet").Range("A1:e20").Value
'"a1:e20"

End Sub

Wes

 

[yankee428]

Looks like you have to pass it a string. try this

Private Sub UserForm_Initialize()
Dim albert As String
ListBox1.ColumnCount = 5
albert = "InformationSheet!A1:E20"
ListBox1.RowSource = albert
End Sub

 

[Tazguy37]

Does

ListBox1.RowSource = "a1:e20"

work?

 

[Wes]

Thanks yankee428 and Tazguy37.

The string code worked just fine however the suggestion from Tazguy37 also works but it selects the active sheet.

Thanks again.

Wes

 

[Tazguy37]

Yes, if you wanted another sheet to be used, either hard code it in, or tell the user to select it, or use ActiveSheet. (Or probably 12 other things)