Macro para abrir vários links de uma planilha de uma vez, clicar no botão salvar do link e fechar a janela.

[Gabiii]

Olá, alguém consegue me ajudar?

Estou criando uma macro para abrir os links de uma planilha, clicar no botão salvar de cada um e fechar a janela, mas não estou tendo progresso. Até agora só consegui faezr abrir todos os links de uma vez.

Meu código:

Sub Em_Lote()
  Dim c As Range
  For Each c In Range("I2:I3")
    ActiveWorkbook.FollowHyperlink Address:=c.Value, NewWindow:=True
  Next c
  For Each oHTML_Element In HTMLDoc.getElementsByTagName("input")
If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For
Next
Err_Clear:
Resume Next
End Sub