Gordon

Maybe this will give you a start

Sub Auto_Close()
Dim SfName As String
SfName = Worksheets("Sheet1").Range("A1").Value
With ThisWorkbook
.SaveAs Filename:=SfName
MsgBox "File saved as " & SfName & ".xls" & Chr(13) & _
"In location " & .Path, vbInformation + vbOKOnly
End With
End Sub

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
www.nickhodge.co.uk
HIS


"Gordon" wrote in message
...
Hi...

I have an auto close routine which is fine. Except I need the file to name
itself from the value of cell A1 as it closes. The user has no option in
saving the file to any other name than what is in cell A1. eg. If cell A1
has
David Jones in it then the excel file will automatically save as David
Jones.xls. Also when the sheet closes I would like a message telling the
user
the name of the file and also its location.

Grateful for any help...

Thanks

Gordon...