Boa tarde, Anderson.

Não deu certo sua sugestão.

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)




If Target.Name = "Toyota 1" Then

Planilha2.Activate
ActiveWindow.ScrollRow = 4

End If

If Target.Name = "Toyota 2" Then

Planilha2.Activate
ActiveWindow.ScrollRow = 11

End If


If Target.Name = "Toyota 3" Then

Planilha2.Activate
ActiveWindow.ScrollRow = 20

End If


If Target.Name = "Toyota 4" Then

Planilha2.Activate
ActiveWindow.ScrollRow = 29

End If

End Sub

@mineiro

Bom dia, prezados!

@Mineiro, no módulo do Workbook (o "EstaPastaDeTrabalho" e não no da Planilha), insira o seguinte:

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
   Application.Goto Range(Target.SubAddress), True
End Sub

Caros Anderson e Edson, muito obrigado!