List box Setup from Varying 1d Array

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi

I need to create a listbox1 within a userform to select one name from a list
of names.

The list of names varies in length from 3 to 60 people.

The list of names starts at B2 and goes down (and varies in number)

Can I get it to default to the 'users' name (from Tools>Options...>General)?

Do I have to set up a dynamic 1d array when I call up the userform?

Kind regards
 
Private Sub Userform_Initialize()
Dim rng as Range
with worksheets("Data")
set rng = .Range(.Range("B2"),.Range("B2").End(xldown))
End with
Listbox1.RowSource = rng.Address(external:=True)
listbox1.Value = Application.UserName

End Sub
 
Back
Top