fname = Application.GetSaveAsFilename(InitialFilename:= _
Worksheets("Sheet1").Range("B9").Value, _
FileFilter:="Excel Files (*.xls), *.xls")
Activeworkbook.SaveAs Filename:=fName
--
Regards,
Tom Ogilvy
"Celtic_Avenger " wrote in
message ...
Can anyone help me with this one.
I am creating a workbook that creates new workbooks with specific data
from the original workbook.
I have sorted a maco to open the SaveAs dialog box
I need a way of setting the Initialfilename property to the content of
a cell found within that workbook.
Can this be done.
I truely hope so.
---
Message posted from http://www.ExcelForum.com/