Este fórum está sendo desativado

[mibs]

Boa noite!

estou tentando realizar o acesso em um site através do vba no navegador IE. Travei em uma parte em que preciso filtrar uma informação num objeto que eu não sei se é um menu suspenso ou uma caixa de listagem, gostaria da ajuda de voces, estou começando agora então me desculpem a minha ignorancia, rsrs.

Segue código:

On Error Resume Next
Dim Endereço As String
Dim MyBrowser As SHDocVw.InternetExplorer
Dim SWs As New SHDocVw.ShellWindows

Endereço = "http://www.fnde.gov.br/painel/painelmapa_ppp_pr.html#"

Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate (Endereço)
ie.Visible = True

ie.Document.getElementByID("div.modal-content").Focus
ie.Document.getElementByID("concordo").Click

'Tentativas de selecionar a opção "QUILO" no menu "Unidade de Medida"
ie.Document.getElementByID("col-xs-6 last").Focus
ie.Document.all.Item("VISAO_UNIDADE_MEDIDA").selectedindex = 3
ie.Document.getElementByID("VISAO_UNIDADE_MEDIDA").Item.Value = "QUILO"
ie.Document.getElementByID("VISAO_UNIDADE_MEDIDA").selectedindex = 3