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