Macro opslaan als (celverwijzing uit andere workbook)

[nst83]

Voor het opslaan van een excel-file gebruik ik het volgende:
ActiveWorkbook.SaveAs Filename:="C:\Temp\" & Range("A1").Formula

Nu wil hetzelfde doen, maar dan voor een celverwijzing uit een andere Workbook.
Hoe wordt dan de code?

 

[Wigi]

ActiveWorkbook.SaveAs Filename:="C:\Temp\" & Workbooks("naamvanhetbestandmetpuntxlserachter").Sheets("naamvanhettabblad").Range("A1").Value

Wigi

 

[nst83]

ActiveWorkbook.SaveAs Filename:="C:\Temp\" & Workbooks("naamvanhetbestandmetpuntxlserachter").Sheets("naamvanhettabblad").Range("A1").Value

Wigi

Wederom hartelijk dank Wigi!