Ожидание выделения объекта

[who]

И снова здавствуйте.
Есть такой код:

Private Sub CommandButton1_Click()
MsgBox ("Выберите чертёж")
End Sub

и есть несколько внедрённых объектов из автокада
с разнообразными именами типа:

Sheets(1).Shapes("Object 1")
Sheets(1).Shapes("Object 2")...

как сделать так, чтобы после нажатия "ОК" в окне сообщения макрос ожидал выделения одного из этих обектов, а после

a = Selection.Name

и далее работать с этой переменной (например присвоить какой-нибудьячейке имя этого объекта)?

Vydelenie.zip

[doober]

Можно так.

Function IsOLEType() As Boolean
    IsOLEType = False
    On Error Resume Next
    IsOLEType = Selection.OLEType = 1
End Function
Private Sub CommandButton1_Click()
    MsgBox ("Выберите чертёж")

    Do While Not IsOLEType
        DoEvents
    Loop

    ' ожидание выделения
    ' например, выделили "объект-4"
    '
    a = Selection.Name
    Sheets(1).Cells(4, 1) = a
End Sub

[who]

Супер. Огромное спасибо.