Thread: CTRL+TAB
View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.setup
daemonbarber daemonbarber is offline
external usenet poster
 
Posts: 1
Default CTRL+TAB


Two bits of Code in VBA (ALT+F11 to view):


'Place this in the code for you PERSONAL.XLS 'ThisWorkbook'
Private Sub Workbook_Open()
Application.OnKey "^{TAB}", "nextTab"
Application.OnKey "^+{TAB}", "prevTab"
End Sub

'Add these to a module in the PERSONAL.XLS workbook
Sub nextTab()
If ActiveSheet.Index = Sheets.Count Then
Application.ActiveWorkbook.Sheets(1).Select
Else
Application.ActiveWorkbook.Sheets(ActiveSheet.Inde x + 1).Select
End If
End Sub

Sub prevTab()
If ActiveSheet.Index = 1 Then
Application.ActiveWorkbook.Sheets(Sheets.Count).Se lect
Else
Application.ActiveWorkbook.Sheets(ActiveSheet.Inde x - 1).Select
End If
End Sub

And there you go. Itll remap your Ctrl+Tab and your Ctrl+Shift+Tab to move
forward or backwards through tabs, wrapping around when it reaches the end.

If you dont have a PERSONAL.XLS workbook, just record a blank macro and
tell it to save to your Personal Workbook.

"Rodrigo Argento (Brasil)" wrote:

Hello guys,

Let me see if you can help me...

How do I do to change CONFIGURATION of CTRL+TAB to change from one WORKSHEET
to another?