Hi Noah:

Try

Dim rng As Range
lastrow = Cells(1, 1).End(xlDown).Row
Set rng = Sheet1.Range(Sheet1.Cells(1, 1), Sheet1.Cells(lastrow, 2))
Me.ListBox1.RowSource = rng.Address

--
http://www.vba.com.tw/plog/


"Noah" wrote:

Is it possible to have the rowsource in a listbox set to the following range
("rng") that I have defined in a vb module? I keep getting the following
message: "Could not set the RowSource property. Invalid property value." Do
I need to insert the code somewhere else? Thank you!
----
Dim rng As Range
lastrow = Cells(1, 1).End(xlDown).Row
rng = Sheet1.Range(Cells(1, 1), Cells(lastrow, 2))
----------