variabel bestandsnaam gebruiken in VBA formule

In een vba heb ik een bestandsnaam als variabele gedefinieerd. Vervolgens wil ik die bestandsnaam gebruiken in een formule en dat probeer ik als volgt:

Dim ID As String
Dim Naam As String
Dim Pad As String
Dim Bestandsnaam As String
ID = ActiveCell.Value & ". "
ActiveCell.Offset(0, 1).Select
Naam = ActiveCell.Value & ".xlsm"
Pad = "C:\Users\Geraldine\Documents\Diataal"
Bestandsnaam = Pad & ID & Naam

Workbooks.Open Filename:= _
"C:\Users\xxxx\Documents\Diataal\blanco formulier.xlsx"
ActiveWorkbook.SaveAs Filename:= _
Bestandsnaam, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Range("A3").Select
ActiveCell.Value = ID

ActiveWorkbook.Save

Windows("basisgegevens").Activate
Range("B1").Select
ActiveCell.Offset(0, 8).Select
ActiveCell.FormulaR1C1 = "=+'[bestandsnaam]hulpblad'!R2C1"

Op de een of andere manier werkt dit niet, ik moet steeds zelf het bestand aanklikken. Dan krijg ik wel de juiste waarde, maar in de cel komt te staan:[bestandsnaam]hulpblad'!R2C1 en dus niet de juiste bestandsnaam.
Kan iemand me hiermee helpen? Ik heb dagen gezocht op internet, maar vind het antwoord niet

De code kan wel een upgrade gebruiken, maar test dit eens.

Beste Harry,
De oplossing die jij gaf werkte op zich niet, maar heeft me wel in de juiste richting gestuurd.
Want het werkt nu wel als volgt:

ActiveCell.FormulaR1C1 = "='[" & ID & Naam & "]hulpblad'!R2C1"

De truc was dus om niet het gehele pad erin te zetten, maar alleen de naam!

Hartstikke bedankt voor je hulp, kan ik volgende week weer mee verder op mijn werk!

Fijn weekend verder!
Marianne