Hello Team...so below is my code...I cant get it to work...please help...thanks.
Code
Sub Button1_Click()
Dim internet As Object
Dim internetdata As Object
Dim div_result As Object
Dim header_links As Object
Dim link As Object
Dim URL As String
Set internet = CreateObject("InternetExplorer.Application")
internet.Visible = True
URL = "http://web.myweb.com/location/myplace/en-US/OnD/RH/RH%20Form/Pages/default.aspx"
internet.Navigate URL
While internet.ReadyState >= 4
DoEvents
Wend
Application.Wait Now + TimeSerial(0, 0, 5)
Set link = ie.document.getElementsByTagName("a")
For Each h In header_links
If h.innerText = "MyLink" Then
Set link = h.ChildNodes.Item(0)
link.Click
End If
Next
End Sub
Display More