Invalid Procedure Call or Argument - Shell Object

Question

I am trying to use a macro to detect an internet explorer window that has opened, but every time I run the following code:

Set objShell = CreateObject("S