vba code to use cell contents as filename

[romantomson]

I currently have a macro enabled workbook named "Active Template.xlsm". The contents of cell C1 are in text format :
"2018 Matchplay Championship Draw"
I have a Close button and need the vba code for this button so that when clicked it will save the workbook (as a macro enabled workbooK) as :
path : C:\ Users\Roman\Documents\Competitions
filename :

2018 Matchplay Championship Draw
i.e Save As :

C:\ Users\Roman\Documents\Competitions\

2018 Matchplay Championship Draw.xlsm​

​

<strike></strike>
I would appreciate any help to create the required vba code.
Thanks
​

 

[Norie]

Try this.

Dim strFileName As String
Dim strPath As String

    strPath =  "C:\ Users\Roman\Documents\Competitions\"
    strFileName = Sheets("Sheet1").Range("C1").Value & ".xlsm"  ' change Sheet1 to the sheet where C1 has the filename

    ActiveWorkbook.SaveAs strPath & strFileName, 52

 

[shg]

  ThisWorkbook.SaveAs Filename:="C:\Users\Roman\Documents\Competitions\" & _
                                Worksheets("thatSheetName").Range("C1").Value, _
                      FileFormat:=xlOpenXMLWorkbookMacroEnabled

 

[romantomson]

Hi
Thanks for this. Works fine
Cheers
Roman