Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = 1