Поиск кнопки

[mchip]

Приветствую всех!
Прошу помощи в возникшей проблеме поиска кнопки в книге.
Т.е. нужно найти кнопку по надписи (Characters.Text="Обработать данные") и если такой нет, то создать и назначить ей макрос. Может кто то сталкивался с такой задачей?

[The_Prist]

Т.к. Вы не указали, какой именно объект используете(ActiveX или Формы), код проверяет все сразу:

Sub Find_Button()
    Dim oButt As Object, sStr As String, bExist As Boolean
    For Each oButt In ActiveSheet.DrawingObjects
        On Error Resume Next
        sStr = oButt.Text: sStr = oButt.Object.Caption
        On Error GoTo 0
        If sStr = "Обработать данные" Then MsgBox oButt.Name: bExist = True: Exit For
    Next oButt
    If Not bExist Then ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
                    Link:=False, DisplayAsIcon:=False).Object.Caption = "Обработать данные"
End Sub

Думаю принцип понятен.

[mchip]

Да точно! Исправлюсь. Объект формы.
Я пытался искать через Shapes, через него нельзя?