Hello all,

I try to save my invoice under an assigned directory with the name of cell in the sheet. I try to save the file as the name of cell F4 and G4. The cell content for F4 is “ =LEFT(Branch_bill,3)” and G4 is number. My scripts are as follow:
Sub SaveAsCellValue()
'Copy wihtout Macro button

Sheets("Invoice").Select

Sheets("Invoice").Copy

ActiveSheet.Shapes.Range(Array("Button_Next")).Select
Selection.Delete
Selection.Cut
ActiveSheet.Shapes.Range(Array("Button_Summary")).Select
Selection.Delete
Selection.Cut
‘Save File
Dim Path As String
Dim filename As String
Path = "/Users/nanaliu/Documents/Invoice/
filename = Range("F4:G4")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal

End Sub

The copy part is working well but it fail to save the file.

Anyone who can help is greatly appericated.

Thanks in advance.

Sandy