Oprettelse af nyt faneblad med referencer urgent

Hej, Jeg har fået noget hjælp herinde for noget tid siden, til at oprette et nyt faneblad for hver uge. Det nye faneblad skulle ligne det gamle.

Men jeg har nu fundet ud af at den ikke kopiere referencerne for cellerne med over. Det vil sige at de referencer hvor der hentes fra andre ark ikke kommer med i de nye uger, men kun ligger i den første.
jeg vil gerne have den til at kopiere referencerne med over.

Her er den kode som opretter det nye faneblad:

Private Sub Workbook_Open()
update
For Each ws In Worksheets
If ws.Name = "uge " & Format(Date, "ww", vbMonday, vbFirstFourDays) Then
Exit Sub
End If
Next

If Weekday(Date) = 2 Then
On Error GoTo ingenGammel
Sheets("uge 30").Copy After:=Sheets(1)
ActiveSheet.Name = "uge " & Format(Date, "ww", vbMonday, vbFirstFourDays)
Sheets("uge " & Format((Date - 7), "ww", vbMonday, vbFirstFourDays)).Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.Locked = True
Selection.FormulaHidden = False
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(ActiveSheet.Name).Select
    Range("A1").Select
        Application.CutCopyMode = False
slet
ingenGammel:
'Sheets("ark1").Select
Range("A1").Select
End If
End Sub