We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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
Join the community of 500,000 technology professionals and ask your questions.