Shape msoShapeCloudCallout

[Igor_Tr]

Здрасьте. На листе несколько обьектов Shape, в том числе Shape(msoShapeCloudCallout) - выноска в виде облака (одна). При создании обьекту было присвоено имя > Selection.Name = "Предупреждение". При завершении процедуры хочу убрать (скрыть, удалить), и не могу! Shapes("Предупреждение").Visible = False не работает (и т.д). И что мне с ним делать?

[Igor_Tr]

 Что-то у меня получилось, но какое-то громоздкое. Есть что попроще у кого-нибудь?   

    Dim mShp As Shape
    Dim a, b, n As Integer
    Dim mStr As String
    Dim n As Byte
   
    n = ActiveSheet.Shapes.Count
   
    mStr = "Предупреждение"
   
    For Each mShp In ActiveSheet.Shapes
        a = mShp.Type
        b = mShp.AutoShapeType
'
            Debug.Print mShp.Type; mShp.AutoShapeType; mShp.Name ' так. _
                                                                                 для контроля.....
        For i = 1 To n '
            If ActiveSheet.Shapes(i).AutoShapeType = 108 _
                                        And mShp.Name = mStr Then
                ActiveSheet.Shapes(i).Select
                Selection.Delete
                Exit For
            End If
        Next i
        i = 1
    Next mShp

[kuklp]

ActiveSheet.drawingobjects("Предупреждение").delete
А на будущее, выкладывайте файл-пример Эксель.

[Igor_Tr]

Спасибо! Огромное! А можете подсказать по кнопке на листе? Кнопке Buttons присвоить имя, на следующий день - найти, выделить, удалить. А то сейчас опять наворочаю на страницу.

[kuklp]

А на будущее, выкладывайте файл-пример Эксель.