Esta é uma versão simples do que descrevi no comentário.
Sub SwitchSheets()
Dim NextSheet As Worksheet
Set NextSheet = ActiveSheet.Next
If NextSheet Is Nothing Then
ThisWorkbook.Sheets(1).Activate
Else
NextSheet.Select
End If
End Sub
Na guia View
, clique em Macros
, selecione SwitchSheets
, vá para Options
e defina uma tecla de atalho para ela (pressionando Shift conforme necessário, para adicioná-la o acorde).