Sub deleteob()For i = 1 To ActiveWorkbook.Worksheets.Count Dim o As Object For Each o In Sheets(1).Shapes o.Delete Next o Next i End Sub