Excel VBA Open IE Select Option Dropdown Menu Copy HTML to Text

[runawaybride]

Hi guys

So far, I have managed to open IE and click the dropdown menu. But I am having a hard time selecting any of the options in the drop down list.

Can anyone help? Please find the code below. Rgds

Sub OpenWebSelectClickSaveHtmlFile()Dim URL As String
URL = "http://formulaacademia.com.br/academia"
Set myIE = CreateObject("InternetExplorer.Application")
With myIE
.navigate URL
.Visible = True
Do While .Busy = True Or .readyState <> 4
Loop
DoEvents
Set selectitems = myIE.document.getElementsByTagName("button")
        For Each i In selectitems
        i.Click
        Next i
End With
End Sub