Syntax error

[praveenlal]

Hi Friends, Getting syntax error in line 3. Can anyone help

ActiveCell.FormulaR1C1 = "='[Book1.xlsm]Sheet1'!R2C2"
ActiveWorkbook.SaveAs Filename:="='[Book1.xlsm]Sheet1'!R2C5"
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False (getting syntax error in this line)
Range("A1").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.Save

 

[Eric W]

You need a line continuation character:

ActiveWorkbook.SaveAs Filename:="='[Book1.xlsm]Sheet1'!R2C5" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

 

[praveenlal]

Thanks Eric, but now I'm getting error in both lines

ActiveWorkbook.SaveAs Filename:="='[Book1.xlsm]Sheet1'!R2C5" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

You need a line continuation character:

ActiveWorkbook.SaveAs Filename:="='[Book1.xlsm]Sheet1'!R2C5" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

 

[Eric W]

That worked for me, that was a screen capture of my editor. Try putting them together as one line:

ActiveWorkbook.SaveAs Filename:="='[Book1.xlsm]Sheet1'!R2C5", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

I'm also leery about the file name. It looks like you're trying to get the name from a cell, but the way you have it coded, it looks like you're trying to name it the cell address.