automatische link naar tabbladen

[luibak]

Ik heb een bestand dat automatisch tabbladen aanmaak als ik een naam/tekst in kolom a van het start invul. Omdat dit behoorlijk veel tabbladen kunnen worden vraag ik me af of er een automatische link naar deze bladen gemaakt kan worden, wanneer je dus op de naam/tekst van het tabblad klikt in het tabblad start zou je dus door verwezen moeten worden naar het betrefende tabblad.

(ik heb dit topic al gevonden http://www.helpmij.nl/forum/showthread.php/345227-Hyperlink-tussen-tabbladen) deze stuurt dan altijd naar 1 tabblad als je ergens in kolom a klikt.

is het dus mogelijke om deze forumule/code om te bouwen

Code
Public Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A2:A2000")) Is Nothing Then Exit Sub
Jump
End Sub

en

module
Sub Jump()
Dim Rij As String
Dim Item As String
' Wat is de inhoud van de huidige cel
Item = ActiveCell.Value
If Item = "" Then Exit Sub
' Zoek deze waarde op het blad start en onthoud de rij.
Rij = Application.Match(Item, Worksheets("start").Range("A:A"), 0)
' Fout melding bij niets gevonden
If IsError(Rij) Then
MsgBox "Niets gevonden"
Else
'
'Ga naar het tabblad start
Sheets("formatwerkbladen").Select
' Selecteer de juiste rij in kolom A
Range("A" & Rij).Select
End If
End Sub

alvast bedankt marco

ps ( ik zit nu op me werk waar ik geen bestanden hiernaar toe kan uploaden een bijlage volg van avond tenzij jullie me hiermee al kunnen helpen)

 

[luibak]

Hierbij als nog een voorbeeld bestand via een omweg

http://www.mijnbestand.nl/Bestand-TWJEEVNWWOEQ.xls
Marco