display sheet choices in combo box

[Guest]

Is it possible to have a combo box give the user a choice of sheets within a
workbook, and to then open the selected sheet?

Wazooli

 

[Vasant Nanavati]

Yes, but why bother? You can do the same thing by right-clicking on the
VCR-type buttons at the bottom left of the workbook window.

 

[Tom Ogilvy]

Sub Drpdwn_Click()
Dim sSheet as String, sName as String
sname = Application.Caller
With Activesheet.DropDowns(sName)
sSheet = .List(.ListIndex)
End With
Worksheets(sSheet).Activate
End Sub

To load you forms Dropdown/Combobox

sub LoadBox()
Dim sh as Worksheet
with Activesheet.DropDowns("Drop Down 1")
.RemoveAllItems
for each sh in ThisWorkbook.Worksheets
.AddItem sh.Name
Next
End With
End Sub

 

[Guest]

Thanks Tom. I'm glad you can appreciate what I am trying to accomplish. I
will try this the next chance I get.

Wazooli

 

[Tom Ogilvy]

Again, that is a combobox from the Forms toolbar. Not from the Control
Toolbox Toolbar. If you want to use the latter, post back.