Let's get the cell value and then add the new workbook:

Sub Macro1()
namevalue = Workbooks("Data.xls").Sheets("Data Entries").Range("E2").Text
MsgBox (namevalue)
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="C:\test\Book" & namevalue & ".xls"
End Sub

NOTE the date in the cell was 4 December 2008
I used the Text property to get the date without slashes.
--
Gary''s Student - gsnu200817


"Scott" wrote:

I have searched this site and found some items that relate to my issue but
everything I have tried does not seem to work.



I am using code to open a new workbook where certain parts of the original
information are copied to. I am then trying to save this new Workbook under
the date that occurs in Range("E2") on a worksheet named Data Entries of the
original workbook entitled Data.xls to a certain file location. The code I
have so far is:

Code:

 
     Workbooks.Add
 
     ActiveWorkbook.SaveAs Filename:= _
 
         "C:\Documents and Settings\schoes14\Desktop\Min Out Reports\Min Out 
 Report.xls", FileFormat:= _
 
         xlNormal, Password:="", WriteResPassword:="", 
 ReadOnlyRecommended:=False _
 
         , CreateBackup:=False
 

I would like the date to appear right before " Min Out Report.xls"



Any help would be greatly appreciated.