Save As based on cell value

[Kathryn]

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("C33").Select
ActiveWorkbook.SendMail "", _
"Your 2004 Flexible Benefit
Election Form"

Any suggestions anyone has will be greatly appreciated!
Thanks!

 

[igor]

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