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