Save File with multiple cells values as it's name

[Kevin]

Is there a way to make a SaveAs macro that saves with a name this is based
in two cells. The example below only can save with the value of cell A1,
what i like to do is save the document with the name of the cell in F4 and
F3. If F4 has a name and F3 has a date then the file saved should look like
"JDoe_12-01-03".

Sub SaveFileAsA1()
ThisFile = Format(Range("A1").Value)
ActiveWorkbook.SaveAs FileName:=ThisFile
End Sub

Thanks you for you help

 

[J.E. McGimpsey]

One way:

Sub SaveFileAsF4AndF3()
ActiveWorkbook.SaveAs Filename:= _
Range("F4").Value & Format(Range("F3").Value, "_mm-dd-yy")
End Sub

Your example's date was ambiguous, so you may need to use

"_dd-mm-yy"

instead.

 

[Kevin]

Thank you very much,
I did try many variation of this code but did not have the correct syntax
and order of commands
Kevin