QTP hacer click en elemento dinamico con la propiedad Innertext

Aqui os dejo un poco de codigo sobre QTP,

Coge el frame de la pagina web y lo recorre en busca de un elemento dinamico en el cual hacer click. Busca por la propiedad innertext.

 

Dim objObject,objObjects
Set objObjects = Browser("Browser").Page("Page").Frame("fraContent").Object.GetElementsByTagName("U")

For Each objObject in objObjects
If objObject.Innertext="textodelelementosobreelquequiereshacerclick" Then
    objObject.click
End If
next

Set objObjects = Nothing