lior03
11-06-2008, 05:00 AM
hello
i wanted to add to my standard toolbar a combo box containing a list of all sheets in the activeworkbook.
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
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
i wanted to add to my standard toolbar a combo box containing a list of all sheets in the activeworkbook.
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
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