Hyperlink funktioniert nicht mehr

Sub transferBeispiel1()
Dim wb As Workbook
Set wb = ActiveWorkbook
Application.ScreenUpdating = False
Workbooks.Open "file:\\Eigene Dateien\Quelle.xls"
ActiveWorkbook.Sheets(1).Range("A3:Y212").Copy _
Destination:=wb.Sheets("Beispiel1").Range("A3:Y212")
Workbooks("Quelle.xls").Close False
Application.ScreenUpdating = True
Sheets("Beispiel1").Range("C1") = Now
End Sub

Das funktioniert wie geschmiert, allerdings sind in der Liste "Beispiel1" einige Hyperlinks die sich auf Tabellenblätter der Ursprungsdatei ("Quelle.xls") beziehen, die werden dann automatisch auf die neue Mappe umgeschrieben und passen daher nicht mehr.
Hat jemand eine Idee, wie die Hyperlinks ihren ursprünglichen Pfad beibehalten können?
Im Voraus bereits vielen Dank für jede Hilfe!
MfG
Mark