Popup list of worksheets (2000)-MULTI-Popup list of worksheets

[AlanMiller]

Could somebody please supply me with the VBA command to activate the right-click functionality of the worksheet tab scrolling buttons. That is, the popup list of worksheets in the current workbook.

thank you

Alan

[MichaelRead]

Hi Alan,

Not sure what the specific id for that particular bar is, but the following will enable all of the commandbars:

<pre>Sub activateCBars()
For Each bar In Application.CommandBars
bar.Enabled = True
Next
End Sub
</pre>

[rory]

Hi Alan,
Check <!post=This post,124365>This post<!/post> from Jefferson. Should be what you need.
Hope that helps.

[AlanMiller]

Excellent thanks Rory. Just what I was after. Got as far as finding the "Worksheet Tabs" commandbar myself, but couldn't progress beyond this. No need now :-)

cheers

Alan

[AlanMiller]

Thanks Mike. I used the basis of your code to generate a list of all the command bars. As mentioned in the post below, it was sufficient to identify a "Worksheets Tabs" bar, but I was unable to delve deeper. Now solved I hope.

cheers

Alan

[fburg]

Rory,

I had a concern about Jefferson's solution when I saw it the other day. So I tested this now on an initial workbook of 3 sheets. Got a run-time error 5 - invalid procedure call or argument. When you right click the tab-scrolling buttons, you don't see a More Sheets if you only have 3 sheets (even if you slide the cell scroll part of the screen over to the left so only Sheet1 and Sheet2 tabs are visible). So I added a few more. Same problem. Seems like you don't get a More Sheets until you get to about 15 sheets. So the question I'd have is how to activate the menu under all conditions and know how to active the More Sheets control. Is there some other control to use with less than 15?

Of course, if all you're trying to do is get at the names of all the sheets, regardless of number, there are easier ways to do this. Not clear what the goals were in activating this.

Fred