I am getting the an automation error while invoking the following object
Set IE = CreateObject(\"InternetExplorer.Application\")
The error
Add the code to make sure all IE browsers are fully closed right before the Set line.
`Set IE = CreateObject("InternetExplorer.Application")`
Change it to:
Call IE_Sledgehammer
Set IE = CreateObject("InternetExplorer.Application")
Add the Sledgehammer module as its own macro somewhere else in the workbook:
Sub IE_Sledgehammer()
Dim objWMI As Object, objProcess As Object, objProcesses As Object
Set objWMI = GetObject("winmgmts://.")
Set objProcesses = objWMI.ExecQuery( _
"SELECT * FROM Win32_Process WHERE Name = 'iexplore.exe'")
For Each objProcess In objProcesses
On Error Resume Next
Call objProcess.Terminate
Next
Set objProcesses = Nothing: Set objWMI = Nothing
End Sub