Function_F1(Dyna_link)
Set obj Browser("Browser").Page("eProcurement_3").Link("Pending Approval for indent").Object.body.document
set Linkcollections obj.Links
msgbox “No. of Links is” & Linkcollections.Length
dim counter
counter 0
For each Element in Linkcollections
StrTitle Element.GetROProperty (“title”)
If StrTitle Expected_Title then
Element.Click
Exit For
Else
Counter Counter + 1
End If
Next
End Function