I have a workbook in which users will be wanting to
recreate one worksheet. Is there a way to display the
sheet tabs in a listbox or combo box? And from there the
user select the sheet tab name to go to it?
Thanks for any assistance.
*** John

Hi John,

Jim Rech ( I believe) posted the following code, which tou can invoke with a
toolbar or worksheet button:

Sub ShowSheetList()

On Error Resume Next
If ActiveWorkbook.sheets.Count <= 16 Then
Application.CommandBars("Workbook Tabs").ShowPopup 500, 225
Else
Application.CommandBars("Workbook Tabs").Controls _
("More Sheets...").Execute
End If

On Error GoTo 0
End Sub


---
Regards,
Norman


"John" wrote in message
...
I have a workbook in which users will be wanting to
recreate one worksheet. Is there a way to display the
sheet tabs in a listbox or combo box? And from there the
user select the sheet tab name to go to it?
Thanks for any assistance.
*** John

Norman (and Jim),
Thanks. Perfect for what I needed.
*** John


-----Original Message-----
Hi John,

Jim Rech ( I believe) posted the following code, which
tou can invoke with a
toolbar or worksheet button:

Sub ShowSheetList()

On Error Resume Next
If ActiveWorkbook.sheets.Count <= 16 Then
Application.CommandBars("Workbook
Tabs").ShowPopup 500, 225
Else
Application.CommandBars("Workbook Tabs").Controls
_
("More Sheets...").Execute
End If

On Error GoTo 0
End Sub


---
Regards,
Norman


"John" wrote in
message
...
I have a workbook in which users will be wanting to
recreate one worksheet. Is there a way to display the
sheet tabs in a listbox or combo box? And from there
the
user select the sheet tab name to go to it?
Thanks for any assistance.
*** John


.