I think I am almost there. The content of A1 is from C11 (text and dat
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 an
Settings\Owner\Desktop\comparable\" & CellName & ".xls"
End Sub

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

Thanks agai

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