çoklu köprü oluşturma

[ydragon]

arkadaşlar bir sayfadaki 600 kişilik isim listesindeki kişilerin üzerine tıklayınca diğer sayfadaki aynı listedeki kişinin üzerine gelmek istiyorum.her iki sayfadaki isim listeside aynı. işlemi tek tek köprüleyince oluyor fakat 600 defa yapmam lazım .bunun bir kolayı varmı .yardımcı olursanız sevinirim şimdiden teşekkürler.

 

[hamitcan]

Aşağıdaki kodu dener misiniz?

Sub kopruekle()
For i = 1 To [a65536].End(3).Row
    ActiveSheet.Hyperlinks.Add Anchor:=Range("a" & i), Address:="", SubAddress:= _
        "Sayfa2!" & ("a" & i), TextToDisplay:=Range("a" & i).Text
Next
End Sub