Wrestling with this VBA code

Hello Leith (or any other Programmer); I'm coming back at you from the East Coast.

Sub Test()
Activesheet.Copy
Range("B1").NumberFormat = "mm-dd-yyyy"
ActiveWorkbook.SaveAs FileName:="c:\ArchiveFolder " & Range("B1") & ".xls", FileFormat:=xllWorkbookNormal
ActiveWorkbook.Close
End Sub

Error 400??? I looked at my program, and I do have 4 userforms that are all connected to checkbox & option box objects. They all pop up when the workbook is first opened, which I need to happen.

Another alternative...

I tried this other code which does work, however it saves it as test, which it should because this is the way it's programmed; however...

How do I do a SaveAS filename that is located in cell "C1" on the worksheet?
Everytime the user hits the archive button, it must be saved with the current date, which I have as =today() in cell "C1"

Sub test()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="C:\ArchiveTestFolder\test.xls"
ActiveWorkbook.Close
End Sub

Thanks,
EMoe

Sub test()
t = Format(Range("c1").Value, "mm-dd-yyyy")
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="C:\ArchiveTestFolder\" & t & ".xls"
ActiveWorkbook.Close
End Sub

Hello EMoe,

I was going to post what Anilsolipuram posted.

Sincerely,
Leith Ross