Copy this to your PERSONAL.XLSB to quickly switch between Worksheets on the ActiveWorkbook
firstname.lastname@example.org wrote this over 6 years ago and it was last updated over 6 years ago.
Private Sub Workbook_Open() Application.OnKey "%+`", "PrevWorksheet" Application.OnKey "%`", "NextWorksheet" End Sub
PERSONAL.XLSB Module1 OR whatever you rename it to :)
Public wb As Workbook Public wbCount As Integer Public wsCurrent As Integer Public x As Integer Sub Init() Set wb = ActiveSheet.Parent wbCount = wb.Sheets.Count wsCurrent = ActiveSheet.Index End Sub Sub NextWorksheet() Init If wsCurrent = wbCount Then wb.Sheets(1).Activate Exit Sub End If wb.Sheets(wsCurrent + 1).Activate End Sub Sub PrevWorksheet() Init If wsCurrent = 1 Then wb.Sheets(wbCount).Activate Exit Sub End If wb.Sheets(wsCurrent - 1).Activate End Sub