link naar sheets

[don42]

hallo allemaal
wie kan mij helpen met volgende

ik heb een 50 tabbladen 1 t/m 50
nu wil ik graag als in cel A5 een 3 staat dat er gelinkt wordt naar tabblad 3
staat er 25 natuurlijk naar 25

heb deze code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.Goto Sheets("3").Range("A8")
End Sub

hoe krijg ik het voor elkaar dat die 3 variabel wordt en de waarde van cel A5 kiest

Don

 

[zapatr]

Ervan uitgaande dat de bladnaam in A5 bestaat:

Application.Goto Sheets(Range("A5").Value).Range("A8")

 

[don42]

Jip dit is waar ik naar opzoek was
bedankt :thumb:
Don