VBA problem can anybody help

[eddycordo]

Sub VolgFact()
Range("Uren!R3").Value = Range("Uren!R3").Value + 1
Range("Voorblad!I40:I46").ClearContents
Range("Voorblad!L9:M9").ClearContents
Range("Uren!Q11:Q30").ClearContents
Range("Uren!D11:E31").ClearContents
Range("Uren!Q1:R1").ClearContents
Range("Declaratie!C11:D31").ClearContents
Range("Declaratie!M11:M30").ClearContents
Range("Uren!E33").Value = Date
End Sub

Public Sub OpslBestand()
Dim NieuwFact As Variant
'kopiëren document als nieuwe factuur
ActiveSheet.Copy
NieuwFact = "C:\Users\Mili\Documents\Brank Scaffold\Test\Fact" & Range("Uren!Q3:R3").Value & ".xlsx" 
ActiveWorkbook.SaveAs NieuwFact, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
VolgFact
End Sub

get Fact1
need - Week 00 2016-0000 Brank Scaffold