Quando rodo o código no depurador ele opera tudo certo, quando utilizo no botão no Excel ele da o erro.
Durante meu código eu abro a Internet Explorer, acesso um site, realizo o login..... quando vou acessar um novo site ele aparece erro de recurso em uso, segue abaixo o código e em vermelho a parte do erro:
Sub ColetarDados()
Dim ie As Object
Dim dado As String
Dim HTMLDoc As HTMLDocument
Dim oHTML_Element As IHTMLElement
Set ie = CreateObject("internetexplorer.application")
ie.Visible = True
ie.navigate "
