.
Com VBA vc terá que ajustá-lo a cada Aba que incluir!! ... Já clicando com o botão direito sobre as setas (que ficam à esquerda das Abas) você vai sem problemas, isto não resolve??
.

JSCOPA, boa noite.
Nos meus botões eu criei um efeito quando selecionado ele muda de cor. Nesses mesmo botões eu chamo as guias.
É aí que mora o problema. Se eu linko para a guia ele não carrega o efeito.
Segue o código:

Sub EfeitoMenuTopo()
Dim sMenuTopo As String
 
 sMenuTopo = ActiveSheet.Shapes(Application.Caller).Name
 
 
    'Cor padrão
     ActiveSheet.Shapes.Range(Array("MenuTopo")).Fill.ForeColor.RGB = RGB(217, 217, 217)
     ActiveSheet.Shapes.Range(Array("MenuTopo")).TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(59, 56, 56)
    
    'Cor Selecionada
    ActiveSheet.Shapes.Range(Array(sMenuTopo)).Fill.ForeColor.RGB = RGB(157, 195, 230)
    ActiveSheet.Shapes.Range(Array(sMenuTopo)).TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 0, 0)

End Sub