Try this:
VB Code:
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean) If URL <> list1.list(x) then Cancel = True 'you could also add a page to go back to if a redirect is ' happening webbrowser1.navigate "url_here" End If End Sub




Reply With Quote