hyperlink te döngü oluşturmak

[mersilen]

Merhabalar

Web den sorgulayarak aldığım veriden oluşturulacak yeni linkleri açmak için döngü oluşturmam lazım .
Yalnız hata veriyor.

Sub sondala()
  For i = 11 To 16
b = Cells(i, 1).Value
c = Cells(i, 2).Value
d = Cells(i, 4).Value

a = "http://cr-all-00.www2.cashraider.de/index.php?planetenid=11250&page=galaxy&step=spionage&pos1=" & b & "&pos2=" & c & "&  pos3=" & d & "&art=plani&reisetypus=5&galaxyx=8&galaxyy=39"
Cells(4, 1) = a
Range("a4").Select

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
'http://cr-all-00.www2.cashraider.de/index.php?planetenid=11250&page=galaxy&step=spionage&pos1=8&pos2=39&pos3=4&art=plani&reisetypus=5&galaxyx=8&galaxyy=39

Next i
End Sub