Cell Grouping with VBA

[Pyromantic]

I'm having a bit of problem with some code. The code perfoms 2 takens, deleting a bunch of sheets and minimising the cell group levels. When these actions are performed separately in differen't macros, they work just fine but as soon as i put them into the same peice of code, the macro bombs as soon as i try to minimise the groups.

Sub Macro4()
    Application.DisplayAlerts = False
    Sheets(Array("Introsheet", "Single Account Query", "Multi Account Query", _
        "Function Query", "COA", "ACL P&L", "Deptid", "Accounts", "Products", "Macros", _
        "Trial Balance")).Delete
    Sheets("P&L INPUT SHEET").Outline.ShowLevels RowLevels:=1
    Application.DisplayAlerts = True
End Sub

Thanks for reading