Saving a file based on a cell in the file

[PatrickSD]

Hello
I have a code that opens a new workbook and saves the a file based on the value of a cell. I am saving it in the current folder.
I made some minor changes and now it won't work.
I can't figure it out.
I would appreciate any help


The following is my code.
Thanks in advance
Sub ()
Application.SheetsInNewWorkbook = 1
Workbooks.Add


ActiveCell.FormulaR1C1 = _
"='[Q1 2015 Aetna MA rev2.xlsm]1. Cover Page'!R100C3"
'REM Range("A1").Select
'REM Selection.Copy
'REM Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


ThisFile = Range("A1").Value


ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ThisFile, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

 

[Momentman]

On what line do you have an error (although your Sub/Procedure doesn't have a name )?

 

[PatrickSD]

On what line do you have an error (although your Sub/Procedure doesn't have a name )?

My problem is the last line.

The program won't save the file

What is strange is that if I change the line
ThisFile = Range("A1").Value
to
ThisFile = "aaa"

The program will save the file to the name aaa.
But with the current code, it won't save the file to the name that is in cell A1.

Sorry, I am still pretty new to this, so I am learning on the fly

 

[Momentman]

WHat do you have in cell A1?, some characters are not allowed in filenames, so maybe check the content of the cell to see

 

[PatrickSD]

WHat do you have in cell A1?, some characters are not allowed in filenames, so maybe check the content of the cell to see

Cell A1 was "Report: File 123"
I took out the : and it worked.

Thanks so much for your help