It looks okay, but try this version

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim CellName As String
Dim FileName As String
FileName = :="C:\Document and Settings\Owner\Desktop\comparable\"
CellName = Activeworkbook.Worksheets("Sheet1").Range("A1")
ActiveWorkbook.SaveAs FilenameFileName & CellName & ".xls"
End Sub


If that fails, insert a MsgBoc FileName & CellName & ".xls" and see what you
get.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Prangk " wrote in message
...
I think I am almost there. The content of A1 is from C11 (text and date
combine). I got two sheets in the workbook. Sheet 1 name is "data"
sheet 2 name is "calculation". The "A1" that I need is from sheet 1.
This is what I tried...


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim CellName As String
CellName = Range("A1")
ActiveWorkbook.SaveAs Filename:="C:\Document and
Settings\Owner\Desktop\comparable\" & CellName & ".xls"
End Sub

When I pressed "save as", it saves but did not use the file name that I
want and it did not go to the folder that I want it to go. Which one
is wrong on the code.

Thanks again


---
Message posted from http://www.ExcelForum.com/