ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   xlDialogs - Sheet Name List (https://www.excelbanter.com/excel-programming/315399-xldialogs-sheet-name-list.html)

Trevor Williams

xlDialogs - Sheet Name List
 
When you right click on the 'next or previous' sheet arrows a list of sheet
names appears which enables the user to jump to a specific sheet or if
there's a large amount of sheets then you have the option to view 'more
sheets...'

The dialog box that appears has the title of Activate, but there isn't a
xlDialog called Activate.

Can you tell me what it's called, or the code to actually show it?

Thanks

Norman Jones

xlDialogs - Sheet Name List
 
Hi Trevor,

Try:

Sub ShowSheetList()
'Based on code posted by Jim Rech
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



"Trevor Williams" wrote in
message ...
When you right click on the 'next or previous' sheet arrows a list of
sheet
names appears which enables the user to jump to a specific sheet or if
there's a large amount of sheets then you have the option to view 'more
sheets...'

The dialog box that appears has the title of Activate, but there isn't a
xlDialog called Activate.

Can you tell me what it's called, or the code to actually show it?

Thanks




Trevor Williams

xlDialogs - Sheet Name List
 
Thanks Norman, I'll give it a go.

Trevor

"Norman Jones" wrote:

Hi Trevor,

Try:

Sub ShowSheetList()
'Based on code posted by Jim Rech
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



"Trevor Williams" wrote in
message ...
When you right click on the 'next or previous' sheet arrows a list of
sheet
names appears which enables the user to jump to a specific sheet or if
there's a large amount of sheets then you have the option to view 'more
sheets...'

The dialog box that appears has the title of Activate, but there isn't a
xlDialog called Activate.

Can you tell me what it's called, or the code to actually show it?

Thanks






All times are GMT +1. The time now is 10:32 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com