Hyperlinks toevoegen in een macro

[DennisR]

Sub Kopie()
Dim ans As String
If Range("B4") = "" Then
MsgBox "Nog niet alle data is ingevuld.", vbExclamation, "Data overzetten."
Exit Sub
Else
ans = MsgBox("Weet U zeker dat U deze data wilt overzetten?", vbYesNo)
If ans = vbYes Then
Sheets("leeg").Copy After:=Sheets("leeg")
With ActiveSheet
.Shapes("Button 1").Delete
.Name = [B4] 'tabblad krijgt naam uit deze cel
End With
Call MaakKoppelingen ' hier wordt de procedure MaakKoppelingen aangeroepen
Call MaakBlanco ' hier wordt de procedure MaakBlanco aangeroepen
Else
Exit Sub
End If
End If
End Sub



Sub MaakKoppelingen()
' deze procedure maakt de koppelingen uit het toegevoegde tabblad naar sheet Overzicht
Dim koppeling As String
koppeling = "='" & ActiveSheet.Name & "'!"
With Sheets("Overzicht").Range("A" & Rows.Count).End(xlUp)
.Offset(1).Formula = koppeling & "B4"
.Offset(1, 1).Formula = koppeling & "B7"
.Offset(1, 2).Formula = koppeling & "B15"
.Offset(1, 3).Formula = koppeling & "B16"
.Offset(1, 4).Formula = koppeling & "E63"
.Offset(1, 5).Formula = koppeling & "B17"
.Offset(1, 6).Formula = koppeling & "B10"
.Offset(1, 7).Formula = koppeling & "B8"
.Offset(1, 8).Formula = koppeling & "B20"
End With
End Sub

Ik heb de bovenstaande 2 macro's, waarbij macro Kopie een ingevuld werkblad kopieert naar een nieuw werkblad en waarbij macro MaakKoppelingen een aantal kerngegevens uit dit ingevulde werkblad kopieert naar een overzichtblad.
Nu wil ik graag ook zorgen dat in dit overzichtblad meteen een hyperlink komt naar het desbetreffende werkblad.
Ik hoop dat deze uitleg helder genoeg is.

Hoe kan ik dit het beste oplossen?

Alvast bedankt!

 

[DennisR]

Toch nog een keer omhoog.