Hi Quite new to coding but learning all the time.

I have a problem and would like some help. I'd like to copy 8 sheets from a workbook, create a new workbook, name the workbook from an input box, paste the copied sheets, remove the created sheet 1 from the new workbook, remove the textboxes/shapes, un show gridlines, un show headings, save the workbook with the input box text, close the workbook and return to the original workbook.

I have this so far,

fName = InputBox("Week Beginning")
    fName = "C:\Users\Sammi\Documents\Weekly_Banking_" & fName
    Set wB = Workbooks.Add
    ThisWorkbook.Activate
    Sheets(Array("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "BankingSummary")).Copy Before:=wB.Sheets(1)
    wB.Activate
    ActiveWorkbook.Sheets("Sheet1").Delete
    ActiveWorkbook.Sheets(Array("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "BankingSummary")).Shapes.Delete
    wB.SaveAs Filename:=fName
also new to here so if I've posted this wrong then sorry :/