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 iEnd Sub
