Need to boost the visibility of your question for solutions? Use the Experts Exchange Help Bell to confirm priority levels and contact subject-matter experts for question attention. Check out this how-to article for more information.
Function QuitIE() As Long ' returns number of quits performed (up to 50) Dim shellWins As Object ' SHDocVw.ShellWindows ' this works Set shellWins = New SHDocVw.ShellWindows Set shellWins = CreateObject("Shell.Application") '<===== (1) does NOT WORK Dim explorer As SHDocVw.InternetExplorer ' (2) changing this to As Object does not help Dim repeat As Boolean Do repeat = False ' next line fails object does not support this method For Each explorer In shellWins
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.