I'm using this on a Userform to load a Listbox from a range;
With Sheet1
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
With Me.ListBox1
.ColumnCount = 10
.ColumnHeads = True
.ColumnWidths = "40;50;110;60;55;60;60;60;0;50"
.RowSource = Sheet1.Range("A2:M" & LastRow).Address(, , ...