Macro wil niet werken

[Jerry Vangerven]

Wat doe ik verkeerd

 

Sub OpslBestand()
Dim NieuwFact As Variant
'kopiëren document als nieuwe factuur
Active Workbook.Copy
NieuwFact = "C:\Users\Gebruiker\Desktop\factuur\klant_" & Range("B2").Value & ".xlsx"
ActiveWorkbook.SaveAs NieuwFact, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
VolgFact
End Sub

 

Dus ik wil de gehele werkmap (factuur,offerte,....) opslaan in een aangegeven map met als bestandsnaam klant en dan de naam die in cel B2 staat 

En hij moet de werkmap (factuur,offerte,.....) terug openen liefst leeg maar zonder dat ik mijn sjabloon kwijt ben met de

factuurnummer +1

 

Maar ik zie door de bomen het bos niet meer