VBA code to open a site (intranet) and look for the link name (MyLink) and click.

[200yrs]

Hello Team...so below is my code...I cant get it to work...please help...thanks.

[COLOR=blue]Sub[/COLOR] Button1_Click() 
     
     
    [COLOR=blue]Dim[/COLOR] internet [COLOR=blue]As[/COLOR] [COLOR=blue]Object[/COLOR] 
    [COLOR=blue]Dim[/COLOR] internetdata [COLOR=blue]As[/COLOR] [COLOR=blue]Object[/COLOR] 
    [COLOR=blue]Dim[/COLOR] div_result [COLOR=blue]As[/COLOR] [COLOR=blue]Object[/COLOR] 
    [COLOR=blue]Dim[/COLOR] header_links [COLOR=blue]As[/COLOR] [COLOR=blue]Object[/COLOR] 
    [COLOR=blue]Dim[/COLOR] link [COLOR=blue]As[/COLOR] [COLOR=blue]Object[/COLOR] 
    [COLOR=blue]Dim[/COLOR] URL [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR] 
     
     
    [COLOR=blue]Set[/COLOR] internet = CreateObject("InternetExplorer.Application") 
    internet.Visible = [COLOR=blue]True[/COLOR] 
     
     
    URL = "http://web.myweb.com/location/myplace/en-US/OnD/RH/RH%20Form/Pages/default.aspx" 
    internet.Navigate URL 
     
     
    [COLOR=blue]While[/COLOR] internet.ReadyState >= 4 
        DoEvents 
    [COLOR=blue]Wend[/COLOR] 
     
     
    Application.Wait Now + TimeSerial(0, 0, 5) 
     
     
    [COLOR=blue]Set[/COLOR] link = ie.document.getElementsByTagName("a") 
     
    [COLOR=blue]For Each[/COLOR] h [COLOR=blue]In[/COLOR] header_links 
        [COLOR=blue]If[/COLOR] h.innerText = "MyLink" [COLOR=blue]Then[/COLOR] 
            [COLOR=blue]Set[/COLOR] link = h.ChildNodes.Item(0) 
            link.Click 
             
             
        [COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR] 
         
    [COLOR=blue]Next[/COLOR] 
     
     
[COLOR=blue]End Sub[/COLOR]