Copy certain worksheets from one workbook to another while keeping format

Hi,
Could anybody please help, I have a workbook that generates invoices through a macro and I need these generated invoices to be copied and saved to a new workbook.
I would like the formatting to remain and a msgbox to let me rename the new workbook.
Also, would it be possible to omit 4 worksheets that are permanently in the source workbook (these sheets are not in consecutive order)

Any ideas would be greatly appreciated
Thanks

Something like this?

Code:

---

Sub test()
    Dim fName
    Application.DisplayAlerts = False
    Sheets("temp1").Delete
    Sheets("temp2").Delete
    Sheets("temp3").Delete
    Sheets("temp4").Delete
    fName = Application.GetSaveAsFilename
    If fName <> False Then ThisWorkbook.SaveAs Filename:=fName
End Sub

---

Quote:

---

Originally Posted by yujin

Something like this?

Code:

---

Sub test()
    Dim fName
    Application.DisplayAlerts = False
    Sheets("temp1").Delete
    Sheets("temp2").Delete
    Sheets("temp3").Delete
    Sheets("temp4").Delete
    fName = Application.GetSaveAsFilename
    If fName <> False Then ThisWorkbook.SaveAs Filename:=fName
End Sub

---

---

Thanks yujin it worked fine