Köprü (Link)

[balca]

Arkadaşlar aşağıdaki kodlar hata veriyor ama anlayamadım !!!

Sub kopru_kur()
For i = 1 To Worksheets.Count
Sheets("liste").Range("A" & i).Select
Sheets("liste").Range("A" & i).Value = Worksheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
Address:="", SubAddress:= _
& Sheets("liste").Range("A" & i).Value & "'!A1"
Next i
End Sub

hata verilen yer

ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
Address:="", SubAddress:= _
& Sheets("liste").Range("A" & i).Value & "'!A1"

 

[mraltin]

Sub kopru_kur()
For i = 1 To Worksheets.Count
Sheets("liste").Range("A" & i).Select
Sheets("liste").Range("A" & i).Value = Worksheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
Address:="", SubAddress:=Sheets("liste").Range("A" & i).Value & "'!A1"
Next i
End Sub

 

[balca]

Sayın mraltin;

Kodlar için teşekkürler ama sheetlere ait liste oluşturuyor link vermiyor..