adding a listbox to a spreadsheet

[philipl]

hi,

Does anyone have any code sample on how you would add/populate a
listbox in a spreadsheet?

thx
-Philip

 

[Tom Ogilvy]

Sub TesterAAA3()
Dim rng As Range
Set rng = ActiveSheet.Range("B9:C15")
With ActiveSheet.OLEObjects.Add( _
ClassType:="Forms.ListBox.1", _
Link:=False, _
DisplayAsIcon:=False, _
Left:=rng.Left, _
Top:=rng.Top, _
Width:=rng.Width, _
Height:=rng.Height)
.ListFillRange = "Sheet3!A1:A20"
End With

End Sub

 

[philipl]

Sub TesterAAA3()
Dim rng As Range
Set rng = ActiveSheet.Range("B9:C15")
With ActiveSheet.OLEObjects.Add( _
ClassType:="Forms.ListBox.1", _
Link:=False, _
DisplayAsIcon:=False, _
Left:=rng.Left, _
Top:=rng.Top, _
Width:=rng.Width, _
Height:=rng.Height)
.ListFillRange = "Sheet3!A1:A20"
End With

End Sub

thanks that gave me a start