Hi below is the code I use to create a macro for when pressed the user is
asked to save as.

Is they anyway I can call the file a certain cell name for example what ever
is in A7 and also state the date instead of the user typing the file name.

Also I would like to default the location to a specific place.

Dim flToSave As Variant 'brings up save as dialogue filling in file name
with Job number
Dim flName As String
Dim flFormat As Long

flFormat = ActiveWorkbook.FileFormat
flToSave = Application.GetSaveAsFilename(flName, filefilter:="Excel
Files (*.xls),*.xls", _
Title:="Save File As...")

If flToSave = False Then
Exit Sub
Else
ThisWorkbook.SaveAs Filename:=flToSave, FileFormat:=flFormat