I pasted that in nad changed sheet1 to intro and range a1 to F8 and got a
syntax error message. I pastet it as follows:
Sub saveas()
ThisWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Owner\My Documents\" & Intro.Range("F8") &
".xls"
End Sub



"Alan" wrote:

To save the file and call it whatever is in Sheet1, range A1 try,
Sub SaveAsCellValue()
ThisWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Owner\My Documents\" & Sheet1.Range("A1") &
".xls"
End Sub
Change the file path to suit,
Regards,
Alan,
"EAHRENS" wrote in message
...
I want to use a macro to automatically save a workbook as a name the user
will be required to enter into a cell. How can i do this?