for i=1 to Browser("DirectCash Management").Page("DirectCash Management").WebTable("name:=...").RowCount
if Browser("DirectCash Management").Page("DirectCash Management").WebTable("name:=...").Browser("DirectCash Management").Page("DirectCash Management").WebTable("name:=...").GetCellData(i,1)="77777.*" then
Browser("DirectCash Management").Page("DirectCash Management").WebTable("name:=...")ChidItem(i,1,"Link",0).Click
end if