Application.DisplayAlerts = False
thisworkbook.SaveAs ThisWorkbook.Path & "\" & _
ThisWorkbook.Worksheets("Sheet1").Range("A1").Valu e & _
".xls"
Application.DisplayAlerts = True

--
Regards,
Tom Ogilvy

"Jeff R" wrote in message
...
I have a form that I save under a new filename each time
it is filled out. I would like to record a macro that
saves the file with a name that represents the text in a
certain cell.
Example: Cell A1 contains the name of a customer/job,
lets say Smith22. I would like a macro to automatically
save the file with a filename of Smith22.xls.
The macro would be assigned to a button next to the cell.
Is this possible?
Thanks!
Jeff R