' Create object references to the Browser and Page objects.
Set BrowserObj =Browser("Yahoo!")
Set BrowserPageObj = Browser("Yahoo!").Page("Yahoo!")

' Set a description object to identify links.
Set oDesc = Description.Create()
oDesc("html tag").Value = "A"

' Get a collection of links
Set oLinkCollection = BrowserPageObj.ChildObjects(oDesc)
ItemCnt = oLinkCollection.Count-1
' Loop through the link collection
For i = 0 to ItemCnt
    msg = ""
    ' Highlight and click link i.
    Set oLink = oLinkCollection.Item(i)
    oLink.Highlight
    linkText = oLink.GetROProperty("innertext")

    msg = "link text = " & linkText & vbNewLine
    oLink.Click
    BrowserObj.Sync

    ' Read page title.
    titleStr = mid(BrowserPageObj.GetROProperty("title"),1,50)
    msg = msg & "page title = " & titleStr & vbNewLine

    ' Check if page load had error.
    If instr(1,titleStr,"Cannot find server") > 0 or
instr(1,titleStr,"HTTP 404") > 0 Then
        msg = msg & "==> broken link" & vbNewLine
        Reporter.ReportEvent micFail, "Link " & linkText, msg
    else
        msg = msg & "==> good link" & vbNewLine
        Reporter.ReportEvent micPass, "Link " & linkText, msg
    End If

    ' Navigate back to links page.
    BrowserObj.Back
    BrowserObj.Sync

    ' Rebuild link collection, navigating away and back
destroys previous collection.
    Set oLinkCollection = BrowserPageObj.ChildObjects(oDesc)
Next

' Release the objects
Set oLinkCollection = nothing
Set BrowserObj = nothing
Set BrowserPageObj = nothing
Set oDesc = nothing

Hi Rnashok,

I used similar function in my script.But getting syntax 
error when I try to run the script.Let me know how to solve 
it.Herez my function.....

Function eTimeSummary(hours)

   rowCount = Browser("XYZ").Page("XYZ_8").WebTable
("Employee #").RowCount

   cellData = Browser("XYZ").Page("XYZ_8").WebTable
("Employee #").GetCellData(1,1)
   
    If cellData <> "Commission Information is not available 
for this time period" Then

	   For i = 2 to 2'rowCount
	   hoursTotal = Browser("XYZ").Page
("XYZ_8").WebTable("Employee #").GetCellData(rowCount, 6)
	   
	    If  Trim(hours)= Trim(hoursTotal) Then
			Reporter.ReportEvent 0, "Verifying 
AssociateSummaryForODhours  and eTimeSummaryhours 
Total", "Summary Total Passed."
			'msgbox "testpassed"
		Else
			Reporter.ReportEvent 1, "Verifying 
AssociateSummaryForODhours  and eTimeSummaryhours 
Total", "Summary Total Failed."
		End If
   Next

   End If
  
   Browser("XYZ").Back
   Browser("XYZ").Page("XYZ_4").Sync
End Function