Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)Set ppDisp = WebBrowser2.ApplicationEnd Sub