hello

i wanted to add to my standard toolbar a combo box containing a list of all sheets in the activeworkbook.
[VBA]
Sub addcombo()
On Error Resume Next
Dim newitem As CommandBarControl
Set newitem = CommandBars("standard").Controls.Add(before:=6, Type:=3)
With newitem
End With
End Sub

[/VBA]
how do i tell excel to loop througe the w.b to get the list.i want the list to present 3 result at the time.
thanks