wie ken mij helpen met mijn VBA probleempje

[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!C1131").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!R3").Value & ".xlsx" ActiveWorkbook.SaveAs NieuwFact, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
VolgFact
End Sub

dit kreeg ik = Fact1
dit wil ik = Week 00 2016-0000 Brank Scaffold
week nr is (Uren!C10)
Factuur nummer is ("Uren!R3")

ik raak alleen maar verder weg van waar ik heen wil dus hoop dat er iemand is die mij helpen ken met dit

 

[OctaFish]

1: code graag opmaken met de CODE tags, dan is het een stuk leesbaarder.
2. Graag een voorbeeldje, want niemand hier zit te popelen om zelf teksten in te kloppen. Ik in ieder geval niet

 

[edmoor]

Ken helpen? Ok, moet kannen