See the attached file, Press Shift+CTRL +S , Hope it will help you -----Original Message----- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Dsastray Sent: Wednesday, August 10, 2011 2:59 AM To: MS EXCEL AND VBA MACROS Subject: $$Excel-Macros$$ Want a shortcut to browse tabs, alas, classic code found is not working.
I would like to be able to press a hotkey and have a sheet pop up that
allows me to navigate to any sheet in my workbook. (A shorter version
to bring up the "Activate" dialog you get when you right click on tab
arrows and select "More Sheets...")
For simplicity sake, we'll say I'm using the following code:
Sub SheetListAbridged()
Application.CommandBars("Workbook Tabs").Controls("More
Sheets...").Execute
End Sub
I get the activate popup one would expect when "More Sheets..." is
selected. Alas, clicking on a workbook name dismisses the dialog, but
does not take me to the selected sheet. Ideas?
Full code:
Sub SheetList_CP()
'Chip Pearson, 2002-10-29, misc., %23ByZYZ3fCHA.1308%40tkmsftngp11
'Dave Peterson, same date/thread, 3DBF0BA8.4DAE9DA0%40msn.com
On Error Resume Next
Application.CommandBars("Workbook Tabs").Controls("More
Sheets...").Execute
If Err.Number > 0 Then
Err.Clear
Application.CommandBars("Workbook Tabs").ShowPopup
End If
On Error GoTo 0
End Sub
--
----------------------------------------------------------------------------
------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
SheetNavitation.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
