10-23-2012, 12:36 PM
Try the below code... I added to ur code
Code:
Set oPage = Browser("micClass:=Browser").Page("micClass:=Page")
Result_Grd = "html id:=ResultGridCtl"
Set oChkBox = Description.Create()
oChkBox("micClass").value = "WebCheckBox"
oPage.WebTable(Result_Grd).highlight
If oPage.WebTable(Result_Grd).Exist Then
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