automaties opslaan met Macro

[Hans83]

Hoi.

ik ben een wat aan het experimenteren met excel.
ik wil een macro maken waar me ik op kan slaan naar een naam die in het bestand voor komt.

zo ver ben ik gekomen.

Sub Macro7()
'
' Macro7 Macro
'

'
Range("F12").Select
ActiveCell.FormulaR1C1 = "111"
ChDir "C:\Users\Hans\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\Hans\Desktop\Factuur 111.xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub


Bedoeling is dat hij het opslaat als factuur en dan het nummer in F12
maar als ik het nummer verander in de cel en macro gebruik houd hij nog steeds 111 aan.

 

[Wigi]

Sub Macro7()
ActiveWorkbook.SaveAs Filename:="C:\Users\Hans\Desktop\Factuur " & Range("F12").Value & ".xlsm"
End Sub

 

[Hans83]

Bedankt. :thumb:

 

[Wigi]

Hallo, graag nog even de vraag op opgelost zetten aub.