Вывести названия фигур на лист

[tgm]

Добрый вечер.Возникла проблема, возможно ли вывести названия фигур(надписи на фигурах) на лист. Если такое возможно,помогите пожалуйста.

[Mishel825]

Во вложении

[IgorGO]

Sub ShowShapesName()
  Dim r As Long, shp As Shape
  r = 10: On Error Resume Next
  For Each shp In ActiveSheet.Shapes
    Cells(r, 7) = shp.DrawingObject.Caption
    If Err Then Err.Clear Else r = r + 1
  Next
  On Error GoTo 0
End Sub

[tgm]

Супер! Спасибо большое!