template file to be saved as xlsm workbook with file name as a cell reference

[bellajn]

Hi everyone
I'm a relative novice at VBA coding and can use some assistance. I have a template file (saved as xltm) that i want to save as an "xlsm" file with the file name referenced to cell "G1".

This is the code that I wrote but i have a 1004 error appearing for the "method "SaveAs" of object "_workbook" failed

Sub Save_File()
Dim FileName As String
Dim Path As String
Application.DisplayAlerts = False
Path = "G:\RT SEQ RMC\SUNSHINE COAST\02. ADMINISTRATION\RMC Weekly Claims\Testing\"
FileName = Range("G1").Value & ".xlsm"
ActiveWorkbook.SaveAs Path & FileName, xlOpenXMLWorkbookMacroEnabled
Application.DisplayAlerts = True
ActiveWorkbook.Close
End Sub

I am using Office 365.

Any advice?

Thanks

 

[DanteAmor]

Hi and welcome to MrExcel

Path = "G:\RT SEQ RMC\SUNSHINE COAST\02. ADMINISTRATION\RMC Weekly Claims\Testing\"
FileName = Range("G1").Value & ".xlsm"

Does the folder exist?
Literally what you have in cell G1, that is, put here the content of your cell G1 of the active sheet.
Is cell G1 empty?
What data do you have inside cell G1?

 

[bellajn]

Hi DanteAmor

Thanks for responding

Yes the folder does exist and there is a formula that creates the file name located in cell G1

Thanks

 

[DanteAmor]

Remove the ":" from the file name and try again.

 

[bellajn]

****! missed that. Thank you, all fixed now

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.