Дан кусок скрипта:
<TR>
<TD class=inform-table2 vAlign=top>
<P class=login-text2>Клиент:</P></TD>
<TD style="WIDTH: 168px" vAlign=top colSpan=2>
<P class=login-text2></P><A class=hr-a
id=ctl00_cphMain_userData_linkCompanyTree
style="TEXT-DECORATION: underline"
href="javascript:ShowDiv('divCompanyTree','divUserData');">Выбрать...</A>
</TD></TR>

Как правельно кликнуть эту кнопку ?

Я деляю так что неправильно:

Dim objIe As SHDocVw.InternetExplorer
Dim frm As MSHTML.HTMLFormElement
Dim xlApp As Object

Set objIe = CreateObject("InternetExplorer.Application")
objIe.Visible = True
objIe.navigate "adris"

Do While objIe.Busy
DoEvents
Loop
Set frm = objIe.document.Forms.aspnetForm
frm.ctl00_cphMain_userData_linkCompanyTree.Click

Первый вариант прошёл без ошибки но не сработал.
А второй в st попадает скрипт "ShowDiv('divCompanyTree','divUserData');" какая часть скрипта должна выполняться ведь ?

Если должнобыть так то не работает:

objie.document.parentWindow.execScript "ShowDiv('divCompanyTree','divUserData');"

Пишет:
run-time error '48'
error in loading dll

Немогу не как сообразить как перебрать 40 значений Title
через такой id: ctl00_cphMain_userData_companyTree_companyTreen12CheckBox

Title = frm.ctl00_cphMain_userData_companyTree_companyTreen12CheckBox.Title 'Общий вид

'а это в цикле
dim idb as string
idb = "ctl00_cphMain_userData_companyTree_companyTreen" & b & "CheckBox"
Title = frm.idb.Title 'Вот здесь не могу ни чего придумать.