Listbox lists

[Bob]

Does anyone know how to ask a listbox to exclude blank
cells from the end of a coloumn list. I've tried using:

i = Worksheets("Sheet1").UsedRange.Rows.Count
UserForm1.ListBox1.RowSource = Worksheets("Sheet1").Range
("A1:A" & i)

Thanks, Bob