VBA Excel выберите и удалите все фигуры с тем же идентификатором и удалите

Проблема в том, что If TypeName(Application.Selection) = "Firestop" Then никогда не бывает правдой. Взгляните на TypeName функция не возвращает имя Application.Selection, а вместо этого возвращает тип Application.Selection. Здесь он, вероятно, возвращает Object, потому что фигура - это объект.

На самом деле имена уникальны. Вы не можете добавить 2 фигуры с одинаковым именем. Вот почему ActiveSheet.Shapes("Firestop").Delete удаляет только одну фигуру.

Кажется, есть ошибка, заключающаяся в том, что при копировании именованной фигуры существуют две фигуры с тем же именем (что не должно быть возможным). Вы можете обойти это, удалив эту фигуру в цикле, пока не получите сообщение об ошибке (не останется фигуры с таким именем).

On Error Resume Next
Do
    ActiveSheet.Shapes("Firestop").Delete
    If Err.Number <> 0 Then Exit Do
Loop
On Error GoTo 0 'don't forget this statement after the loop

Не рекомендуется использовать On Error Resume Next часто. Мы рекомендуем использовать его только тогда, когда это необходимо.

Sub test()
    Dim shp As Shape
    Dim Ws As Worksheet

    Set Ws = ActiveSheet
    For Each shp In Ws.Shapes
        If shp.Name = "Firestop" Then
            shp.Delete
        End If
    Next shp
End Sub