VBA IE Button Issue

[Zring]

Hi Everyone,

I am hoping that you can help me with this issue. I am trying to automate getting onto a website and clicking a button. Thus far, I have not been able to determine where the issue is.
________________________________
Sub Test()Dim oHTML_Element As IHTMLElement
Dim oBrowser As InternetExplorer
Dim ie As Variant
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "Website goes here"
While ie.ReadyState <> READYSTATE_COMPLETE And ie.ReadyState <> READYSTATE_LOADED
DoEvents
Wend
For Each oHTML_Element In ie.Document.getElementsById("WD2A")
oHTML_Element.Click
Next
End Sub
______________________
I am getting a runtime error 438: Object doesn't support this property or method.

The HTML code for the button is as follows:

<a tabIndex="0" title="Click here" class="lsControl--Valign urLnkFunction ur TxtEmph LsTextNoWrapping" id="WD2A" style="WHITE-SPACE: nowrap" ondragstart="var e=window.event;e.cancelBubble=true;e.returnValue=false;return false;"href="javascript:void(0);" shape="" ct="LN" ti="0" lsevents="{Activate: [{ResponseDate:'delta',ClientAction:'submit'},{}]}"


Please advise.

Thank you,

 

[Zring]

The button code did not show up in my initial email.

Please see below.


Thank you,

 

[Zring]

Finally, here is the button code from the website.

ondragstart="var
e=window.event;e.cancelBubble=true;e.returnValue=false;return false;" tabIndex=0
id=WD2A title="Click here" class="lsControl--valign
urLnkFunction urTxtEmph lsTextNoWrapping" style="WHITE-SPACE:
nowrap" href="javascript:void(0);" ct="LN"
ti="0" lsevents="{Activate:[{ResponseData:'delta',ClientAction:'submit'},{}]}"
src="link to picture button" align=absMiddle>