10-23-2012, 05:17 PM
Thanks for the help just modified the a few things and it works PERFECT .
Code:
Code:
Code:
Set oPage = Browser("micClass:=Browser").Page("micClass:=Page")
Result_Grd = "html id:=ResultGridCtl"
Set oChkBox = Description.Create()
oChkBox("micClass").value = "WebCheckBox"
oChkBox("disabled").value = 0
oPage.WebTable(Result_Grd).highlight
If oPage.WebTable(Result_Grd).Exist Then
Set wbChk = oPage.WebTable(Result_Grd).ChildObjects(oChkBox)
For i = 1 to wbChk.Count - 1
wbChk(i).highlight
wbChk(i).Set "ON"
If i > 10 Then
Exit For
End If
Next
End If