Save As based on cell value
 

I would like to save a form based on the value of a cell
after I format it and before I email it and then revert to
the presaved or "master". I am struggleing with the Save
As part. This is what I have so far...

Sheets("Data").Visible = False
Sheets("Introduction").Select
ActiveWindow.DisplayWorkbookTabs = False
Range("C3:D3").Select
ActiveWorkbook.SendMail "", _
"Your 2004 Flexible Benefit
Election Form"

Any suggestions anyone has will be greatly appreciated!
Thanks!

Save As based on cell value
 

Presuming that file name is located in A1 here is what you
can try:

Sub saveAsCellValue()

ActiveWorkbook.saveAs ("C:\" & Sheets("SHEET1").Cells(1,
1).Value)

End sub