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