Experimente

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address <> "$B$5" Then Exit Sub
 On Error Resume Next
 Sheets(Range("C7").Value).Activate
End Sub

Osvaldo, boa tarde!
Recortei e coloquei mas não funcionou
Você poderia demostrar essa macro na própria planilha

Ficaria muito grato

Marcio

O código que o Osvaldo postou não pode ser colocado em um Módulo comum, tem que ser no módulo da planilha.

Se foi útil, clique na mãozinha.

[]s

Olá, Marcio.
Complementando a informação do Patropi, instale o código no módulo da planilha, assim:
1. copie o código do post
2. clique com o direito na guia da planilha de interesse e escolha 'Exibir código'
3. cole o código na janela em branco que vai se abrir
4. feito! 'Alt+Q' para retornar para a planilha e testar