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
Bookmarks