Try this:

VB Code:
  1. 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)
  2.  
  3. If URL <> list1.list(x) then
  4.      Cancel = True
  5.  
  6.      'you could also add a page to go back to if a redirect is
  7.      ' happening
  8.      webbrowser1.navigate "url_here"
  9. End If
  10.  
  11. End Sub