Copy this to your PERSONAL.XLSB to quickly switch between Worksheets on the ActiveWorkbook
email@example.com wrote this about 5 years ago and it was last updated about 5 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