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?