Help with saving from a cell

Thanks for the reply.

I ran the code replacing: FileToSave = InputBox("Save the date for data history" & _
" in the form month-day-year" & _
" example: 10-13-2003", _
"Name day to archive")

With: FileToSave = Activeworkbook.Worksheets("HH1").Range("F2").Text and I got a Microsoft error, that it could not access a file needed.

In the vba code, highlighted in yellow is: ActiveWorkbook.SaveAs Filename:=FileToSave, FileFormat:=xlNormal, Password:="", writerespassword:="SIC", _
ReadOnlyRecommended:=False, CreateBackup:=False

I want to name the new sheet with the current days date which is located on the original sheet in cell F2. Can I reference in the code the actual filename instead of "Activeworkbok".

Thanks again,
EMoe

Hi
How is the date formatted? - file names don't like "/" and some other
characters in them. Also, what is the date format in the cell - that
too might affect things. If you have a normal bit of text in F2 the
code will work (assuming it did using the input box!), so I'm guessing
you don't have a normal bit of text in F2.

regards
Paul

Thanks again Paul.

You are absolutely right! I found that using this format 4/15/2006, did not work. However changing it to 4-15-2006, did the trick. So now the code looks in the designated sheet & cell, with the latter format, and she runs to the end.

Thanks again!

Regards,
EMoe