HI,
I have a code here,
Sub FileNameAsCellContent()
Dim FileName As String
Dim Path As String
Application.DisplayAlerts = False
Path = "J:\123\"
FileName = Range("B1").Value & ("-") & Range("B2").Value & ".xlsx"
ActiveWorkbook.SaveAs Path & FileName, xlOpenXMLWorkbook
Application.DisplayAlerts = True
ActiveWorkbook.Close
End Sub
can i after the path 123 make a range like the filename,
that he look in the cell for where to save?
I have a code here,
Sub FileNameAsCellContent()
Dim FileName As String
Dim Path As String
Application.DisplayAlerts = False
Path = "J:\123\"
FileName = Range("B1").Value & ("-") & Range("B2").Value & ".xlsx"
ActiveWorkbook.SaveAs Path & FileName, xlOpenXMLWorkbook
Application.DisplayAlerts = True
ActiveWorkbook.Close
End Sub
can i after the path 123 make a range like the filename,
that he look in the cell for where to save?