Morning all.
I am trying to add this line to the script in order for the "SaveAs" function to rename the file as the text in the quotes, and the cell valve. Thanks all.
This is what I currently have. This is not my VB, I forgot where I copied it from.
I am trying to add this line to the script in order for the "SaveAs" function to rename the file as the text in the quotes, and the cell valve. Thanks all.
Code:
"Req-" & Range.("P3")
This is what I currently have. This is not my VB, I forgot where I copied it from.
Code:
Sub Save_As()
Dim file_name As Variant
' Get the file name.
file_name = Application.GetSaveAsFilename( _
FileFilter:="Excel Files,*.xls,All Files,*.*", _
Title:="Save As File Name")
' See if the user canceled.
If file_name = False Then Exit Sub
' Save the file with the new name.
If LCase$(Right$(file_name, 4)) <> ".xls" Then
file_name = file_name & ".xls"
End If
ActiveWorkbook.SaveAs Filename:=file_name
End Sub