VBA for Excel - Save As, can I change the name?

I have a macro that creates a new workbook. I need to save this new workbook in a specific folder, and change the name to a name that appears in a specific cell in the original workbook. I cant get the name of the new workbook to change from "Book1". Is this possible?
Thanks
Douglas

Use the recorder and record your steps on how normally you would save a file.

The basic code is like this.

Code:

---

    Windows("Book2").Activate
    Dim str_FileName As String
    str_FileName = Range("A1").Value & ".xls"
   
    Windows("Book1").Activate
    ActiveWorkbook.SaveAs Filename:=str_FileName

---