Hi I use the code below to create a popup menu that shows unhidden tabs in a
workbook so that you can navigate to them quickly.


Option Explicit
'to create index popup on menu when you right mouse click on screen
Sub IndexCode()
Application.CommandBars("workbook Tabs").ShowPopup
End Sub

Is it possible to modify so that it lists certain tab names only, which then
if clicked have sub menus ie

on a right mouse click and then clicking sheet index I see tab names

Car
Bed
House

Then on clicking one of the items I see

Car
Car 1
Car 2
Car 3

Hope that makes sense.