Sub drop_prop()
' Keyboard Shortcut: Ctrl+l
'

    Dim UndoScopeID1 As Long
    UndoScopeID1 = Application.BeginUndoScope("Define Custom Properties")
    Dim vsoShape1 As Visio.Shape
    Dim intPropRow2 As Integer
    Set intPropRow2 = Application.ActiveWindow.Page.Shapes
    
    For i =  1  To  2   ' перебираем Shapes
    Set vsoShape1 = Application.ActiveWindow.Page.Shapes.ItemFromID(i)
    vsoShape1.DeleteRow visSectionProp, vsoShape1.CellsU("Prop.Cost").Row ' На этом появляется ошибка
    vsoShape1.DeleteRow visSectionProp, vsoShape1.CellsU("Prop.Duration").Row
    vsoShape1.DeleteRow visSectionProp, vsoShape1.CellsU("Prop.Resources").Row 
     
    Next i
    Application.EndUndoScope UndoScopeID1, True

End Sub