listing sheet tabs

J

John

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
 
N

Norman Jones

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
 
Top