Tilføjelse i Programkode

Kan man i denne kode indsætte en funktion der også genererer et navn for et ekstra hyperlink?

Der er i forvejen et link der henter en skabelon og giver denne et navn. Jeg vil gerne kunne tilføje samme funktion til et nyt link der henter et andet dokument og gemmer under et andet navn -Kan man det?


Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
  If Target.TextToDisplay = "Den tekst der vises i hyperlinket" Then
    wb = ActiveWorkbook.Name
    Workbooks("Statusark for Fakturering.xls").Activate
    x = ActiveCell.Value
    Workbooks(wb).Activate
    ActiveWorkbook.SaveAs "F:\Køge_Skanderborg\Fakturering\BDK\Fakturering\" & x & ".BDK.xlt"
  End If
End Sub


MVH, Ladyhawk