copy sheets without shapes?

[SamPain]

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 :/

[Mister.Red]

I would go looking for "collection" in Help - I have used them to find specific objects and deal with them. Can't remember the syntax but shapes were one of the things I was dealing with.
My take would be to always copy everything then remove what you don't want. Safer that way.

[YasserKhalil]

Try the following (not tested)

Sub Test()
    Dim fName As String, WB As Workbook
    fName = InputBox("Week Beginning")
    fName = "C:\Users\Sammi\Documents\Weekly_Banking_" & fName
    Set WB = Workbooks.Add
    
    Application.CopyObjectsWithCells = False
    Application.DisplayAlerts = False
    
        Sheets(Array("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "BankingSummary")).Copy Before:=WB.Sheets(1)
        ActiveWorkbook.Sheets("Sheet1").Delete
        WB.SaveAs Filename:=fName
        
    Application.DisplayAlerts = True
    Application.CopyObjectsWithCells = True
End Sub