bestandsnaam in formule

[mjdejoode]

Goededag,

Ik heb een bestand "project1.xls" van waaruit ik rijen wil invoegen in een totaal bestand "totaal.xls". Met het opnemen van macro's heb ik de volgende macro opgenomen:

Public Sub regels_koppelen_Click()

If MsgBox("Wilt u het project koppelen met het totaalblad?", vbYesNo + vbQuestion + vbDefaultButton2) = vbNo Then
Exit Sub
Else

Rows("11:60").Select
Selection.Copy
Windows("totaal.xls").Activate
Rows("12:12").Select
Selection.Insert Shift:=xlDown
Range("A12").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=IF('[project1.xls]Blad1'!R[-1]C="""","""",'[project1.xls]Blad1'!R[-1]C)"
Range("A12").Select
Selection.AutoFill Destination:=Range("A12:A61"), Type:=xlFillDefault
Range("A12:A61").Select
Selection.AutoFill Destination:=Range("A12:K61"), Type:=xlFillValues
Range("L11").Select
Selection.AutoFill Destination:=Range("L11:L60"), Type:=xlFillDefault
Range("P11").Select
Selection.AutoFill Destination:=Range("P1161"), Type:=xlFillDefault
Range("M12").Select
ActiveCell.FormulaR1C1 = _
"='[project1.xls]Blad1'!R[-1]C"
Range("M12").Select
Selection.AutoFill Destination:=Range("M12:M61"), Type:=xlFillDefault
Range("T12").Select
ActiveCell.FormulaR1C1 = _
"=IF('[project1.xls]Blad1'!R[-1]C="""","""",'[project1.xls]Blad1'!R[-1]C)"
Range("T12").Select
Selection.AutoFill Destination:=Range("T12:T61"), Type:=xlFillDefault
Range("T12:T61").Select
Selection.AutoFill Destination:=Range("T12:U61"), Type:=xlFillDefault
Windows("project1.xls").Activate
Range("A1").Select

End If
End Sub

Nu is het zo dat het eerste bestand "project1" gekopieerd gaat worden en een andere naam krijgt. Hoe zorg ik dat de verwijzingen in de macro ook mee veranderen? Heb dit met ThisWorkbook geprobeerd, maar kom er niet helemaal uit.

Alvast bedankt,

Michael