'Check Date Formatting To Ensure No Errors
Range("B2").Select
Selection.NumberFormat = "[$-409]mmmm d yyyy;@"
'Spit File
Dim GetTitle As String
Dim DateTheInvoice As String
GetTitle = Range("A1").Value
DateTheInvoice = Range("B2").Value
ActiveWorkbook.SaveAs FileName:= _
"C:\SaveToLocationDesired" & GetTitle & "" & DateTheInvoice & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.Close
End Sub
Trying to get it to save as a A1 Cell, and Cell B2 Which is the date of the invoice.
So it would export for example as "Invoice-6 1 2015"
I keep getting Runtime Error 1004
Cannot Access the File
Filename or path does not exist
Used in another program
File has same name as another.

Works perfectly fine if I change the cell to a non date cell.
Bookmarks