Populating a list box from spreadsheet: VBA Excel Help

Sub main()
Dim shtList As Worksheet 'sheet containing values to populate
Dim cell, rng As Range
Dim nRow As Integer 'is the last used  row in the data sheet

Set shtList = ThisWorkbook.Worksheets(Sheets.Count)  'sets the last sheet as the sheet value sheet
nRow = shtList.Cells(1, 1).End(xlDown).Row 'sets the last used row

'First create a form, and then create a listbox inside the form. In this example I've named the form "listform" and the listbox "listbox"

With ListForm.ListBox
    .Clear
    .ColumnCount = 2 'how many columns are in the listbox
    .List = Range(Cells(1, 1), Cells(nRow, 2)).Value 'populate the listbox with the values in the range
End With

ListForm.Show

End Sub

Comments

[Lucas J]

Tnx alot for the info! :)

[Gleb]

ヅ You're very welcome.

[Me]

Thank you thank you thank you thank you