Worksheet hyperlinks in toolbar

[Jonbob]

I have a list of worksheets in a workbook. I have the ability via macro to automatically update the list of worksheets. How can you create a new toolbar with a dropdown list of all the worksheets and when you select the worksheet in the toolbar, it will hyperlink to that worksheet?

thanks,
jonbob

 

[Chitosunday]

assuming the name of your listbox is listbox1 . Put this code in your userform

Private Sub ListBox1_Click()
Sheets(ListBox1.Text).Activate
End Sub

Private Sub UserForm_Initialize()
For Each Sheet In Worksheets
ListBox1.AddItem Sheet.Name
Next Sheet
End Sub