I added a dropdown into a toolbar and loaded it like so


Dim sh As Object
With Application.CommandBars("Custom Toolbar").Controls("Goto Sheet")
.Clear
For Each sh In Wb.Sheets
.AddItem sh.Name
Next sh
.ListIndex = 1
End With

then I can select from the dropdown.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"johanc" wrote in message
...
I use 60 worksheets - how do I quickly move to e.g. sheet 52 without
having
to use the arrows?