Private WithEvents iexxx As InternetExplorer
 
 
Public Sub OpenIe(URL As String)
   Set iexxx = New InternetExplorer
 
  Debug.Print "OpenIe"
 
  iexxx.FullScreen = False
  iexxx.MenuBar = True
  iexxx.AddressBar = True
  iexxx.ToolBar = True
  iexxx.Visible = True
  iexxx.Navigate URL
End Sub