For Each ctl In Controls
On Error Resume Next
Err.Clear
If ctl.Caption = "твой текст" Then
If Err = 0 Then
'//Тут делаешь все что тебе нужно с этим элементом
End If
End If
Next
Сейчас этот форум просматривают: AhrefsBot, Yandex-бот и гости: 99