Il faut attacher le lien à une cellule ou à une forme... mais on peut faire n'importe où hors de vue, puisque de toutes façons on le supprime une fois lancé.
J'avais zappé aussi que tu utilisais une liste déroulante... donc version réaménagée :
Sub SuivreLien()
Dim hpl$, n%
With ActiveSheet
hpl = .Range("F2")
n = CInt(Right(hpl, 3)) + 1
hpl = .Range("B" & n).Value
End With
If hpl = "" Then hpl = "http://google.fr"
With Worksheets(3).Hyperlinks.Add(Worksheets(3).Range("A1"), hpl)
.Follow
.Delete
End With
End Sub