Ovako nekako na brzinu. Dva su shortcuta jer bi se trebao sad pozabavit kako sa jednim aktivirat jedan za drugim pa na zadnjem vratit na prvi.
Sa ovom petljom izbjegavaš grešku kad dođe na zadnji(prvi) sheet.
Jedino ne kužim šta će ti to kad ti to isto radi Ctrl + PageUp/PageDown (po defaultu je tako)
Sub next_sheet()
'Shortcut: Ctrl + r
Set sh = ActiveSheet
On Error Resume Next
Do While sh.Next.Visible <> xlSheetVisible
If Err <> 0 Then Exit Do
Set sh = sh.Next
Loop
sh.Next.Activate
On Error GoTo 0
End Sub
Sub previous_sheet()
'Shortcut: Ctrl + e
Set sh = ActiveSheet
On Error Resume Next
Do While sh.Previous.Visible <> xlSheetVisible
If Err <> 0 Then Exit Do
Set sh = sh.Previous
Loop
sh.Previous.Activate
On Error GoTo 0
End Sub