Auto-save a new file with data from 3 cells

I would like to have a template .xlt file which, when three cells have been completed (and they must be completed!) automatically saves the .xls file in the one folder with the file name made up of the concatenated cells data.

This is in part linked to this 'Prevent Save unless cells are complete' thread
http://www.excelforum.com/showthread.php?t=625297

This would then ensure that my users would always get the file naming protocol correct!

The three cells have been named as ExIncOp, Name and StartDate. StartDate has been formatted to appear as dd-mmm-yy.

I have put the formula

=(LEFT(ExIncOp,2) & " " & Name &  " " & StartDate)

in one cell which produces what I want except that the date is no longer formatted dd-mmm-yy and then recorded a macro to save the file

Sub SaveFile()

' SaveFile Macro
'
    Range("M6").Select
    Selection.Copy
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:= _
        "H:\........\Ex Test 39417.xls", FileFormat:=xlExcel8 _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
End Sub

which unfortunately did not allow me to paste what I had copied from the concatenated cell into the file name field.

Is this possible?

Try changing name ranges to e.g

Range("ExIncOp").value

VBA Noob

VB Noob

Thanks for your response. I have tried Ranges as you suggested

Sub SaveFile()
' SaveFile Macro
'
    ActiveWorkbook.SaveAs Filename:= _
        "H:\ ...path...\" & Range("ExIncOp").Value & " " & Range("Name").Value _
        & " " & Range("StartDate").Value, FileFormat:=xlExcel8 _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
End Sub

but it now gives me a 400 warning box, which I think means the form is already in use

Forgot the format .xls also you can't use / when naming workbooks
try something like

Dim Dt As Date
Dt = Range("StartDate").Value

    ActiveWorkbook.SaveAs Filename:= _
        "C:\" & Range("ExIncOp").Value & " " & Range("Name").Value _
        & " " & Format(Dt, "dd-mm-yy") & ".xls", FileFormat:=xlNormal

Change path to your path

VBA Noob

Thanks a lot VB Noob,

You pointed me to my final effort, which works exactly as I wanted i.e.

Sub SaveFile()
'
' SaveFile Macro
'
Dim Dt As Date
Dim Ex As String

Dt = Range("StartDate").Value
Ex = Left(ExIncOp, 2)
'
    ActiveWorkbook.SaveAs Filename:= _
        "H:\...Path...\" & "Ex" & " " & Range("Name").Value _
        & " " & Format(Dt, "dd-mmm-yy") & ".xls", FileFormat:=xlNormal

End Sub

Thanks again

Your welcome

VBA Noob