特定のシート上(ここでは1枚目)にオートシェイプが1つでも見つかった場合に一括削除させる処理です。
慣れた方なら繰り返し処理を考えて複数のシートにも適用させるように組むのが普通かもしれませんが、ここでは1つのシートで限定的に一括削除させる場合の一例です。
Sub a()
Dim S_cnt As Integer
S_cnt = Worksheets(1).Shapes.Count
Worksheets(1).Activate
If S_cnt > 1 Then
ActiveSheet.Shapes.SelectAll
Selection.Delete
End If
End Sub
