Try this:

With Worksheets(1)
Set lb = .Shapes.AddFormControl(xlListBox, 100, 10, 100, 100)
lb.ControlFormat.ListFillRange = "A1:B100"
End With


"browie" wrote:

Is it possible to have a listbox populate using the activesheet range
a1:b100



Thanks in advance