Excel/VBA - Clicking checklist (HTML). Why not work?

Good morning! I am developing a macro to click a few buttons on a page, but some are not working. Does anyone know why?
CLICAR BOTOES PAGINA.zip

Sub teste()
Dim ie
Dim obj
Dim obj2
Dim linkCollection2
Dim elemCollection
Dim t As Integer
Dim r As Integer, c As Integer
    
Set ie = CreateObject("internetexplorer.application")
ie.Navigate2 "http://www.infomoney.com.br/mercados/agendas"
 ie.Visible = True

Do While ie.Busy
Loop
Do Until ie.Document.ReadyState = "complete"
Loop


Dim LinkFound As Boolean
Dim linkCollection


Set linkCollection = ie.Document.getElementsByTagName("A")
For Each link In linkCollection
If link.InnerText = "Resultados" Then
LinkFound = True
link.Click
Exit For
End If

Next


If Not LinkFound Then
MsgBox "Link Not Found!"
Exit Sub
End If

Do While ie.Busy
Loop
Do Until ie.Document.ReadyState = "complete"
Loop


    For Each obj In ie.Document.All.Item("ctl00$cphContent$ctl02$ddlReferencePage").Options
        If obj.InnerText = "3T12" Then
            obj.Selected = True
          '  ie.Document.forms(0).submit
            Exit For
        End If
    Next obj
    
    Set linkCollection2 = ie.Document.getElementsByTagName("A")
For Each link In linkCollection2
If link.InnerText = "Resultados" Then
LinkFound = True
link.Click
Exit For
End If

Next

        Set elemCollection = ie.Document.getElementsByTagName("TABLE")
    
    For t = 0 To elemCollection.Length - 1
        For r = 0 To elemCollection(t).Rows.Length - 1
            For c = 0 To elemCollection(t).Rows(r).Cells.Length - 1
                ThisWorkbook.Worksheets(1).Cells(r + 1, c + 1) = elemCollection(t).Rows(r).Cells(c).InnerText
            Next c
        Next r
    Next t

' TO FROM HERE DOES NOT WORK. WHY?

    For Each obj2 In ie.Document.All.Item("tblCInvestorData_length").Options
        If obj.InnerText = "100" Then
            obj2.Selected = True
          '  ie.Document.forms(0).submit
            Exit For
        End If
    Next obj2

End Sub

Thanks in advance for any help.

Silmar

Norie, I'm sorry, but do not get it right. I have to change the code like this:

For Each obj2 In ie.Document.All.Item("tblCInvestorData_length").Options
        If obj.InnerText = "*100*" Then
            obj2.Selected = True
          '  ie.Document.forms(0).submit
            Exit For
        End If
    Next obj2

You know how to "click" the button that takes you to the page "2"?

thank you very much

Norie, forgive me, but I made the changes you suggested, but is giving error in execution. See what I did:

For Each obj2 In ie.document.all.Item("tblCInvestorData_length").Options ' IS GIVING ERROR IN THIS LINE
        If obj2.innerText = "*100*" Then
            obj2.Selected = True
                      Exit For
        End If
    Next obj2

The page has more than 200 lines, then even after clicking "100", I'll have to go to page "2" to download the remaining lines.

thank you very much for your help.

I want to:

1 - Select "100" on the checklist;
2 - Download the "100" lines;
3 - Click on "Next" (page2)
4 - Download the lines that are on page 2

The code to click "next" worked, but the code to select "100" on the checklist did not work.

thank you very much for your help.

OK. Thank you very much for your help.