Notice the sheet arrow keys at the bottom left. RIGHT click one>voila

-----Original Message----- From: Dsastray
Sent: Tuesday, August 09, 2011 4:29 PM
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

Reply via email to