Eu precisava criar um macro para pegar um CNPJ na planilha do Excel ir no site e consultar se o CNPJ ainda estava ativo pegar a informação se esta ativo ou não e trazer para o excel porém com vários CNPJS
Boa tarde @Diego.Machado.
Fiz uma revisão no código e parou o erro aqui para mim.
Faz o teste ai nele:
Consultar Status do CNPJ.xlsm
Sub ConsultarCNPJ()
' Adicionar a referência Microsoft HTML Object Library
Dim IE As Object
Dim doc As HTMLDocument
Dim CNPJ As Range
Dim Status As String
Dim countLoop As Long
' Criar um novo objeto Internet Explorer
Set IE = CreateObject("InternetExplorer.Application")
' Para cada CNPJ na coluna A (de A2 até a