Somthing like the below

Dim strFolder As String
Dim strFile As String

strFolder = "c:\"
strFile = Worksheets("Sheet1").Range("A1")

ThisWorkbook.SaveAs Filename:=strFolder & strFile, _
FileFormat:=ActiveWorkbook.FileFormat

If this post helps click Yes
---------------
Jacob Skaria


"Neil Holden" wrote:

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