looping hyperlink

[BrendanDixon]

Hi all I have

200 cells that I want to add hyperlinks to different sheet. I am trying to run a loop where I can fill in these automatically....

basically I want Cell E203 to hyperlink to sheet 201!A1
Cell E204 to hyperlink to sheet 202!A1
Cell E205 to hyperlink to sheet 203!A1 etc

all the way to 400. This is what I have written so far but it comes up with an error and I do not know the syntax to do the range with a counting number

Sub test()
Dim i As Long, Got As Boolean
            For i = 202 To 400
Range(E(i)).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'(i-2)'!A1", TextToDisplay:="View"
    Next i
   
End Sub

 

[BrendanDixon]

bump

 

[Norie]

This works but I'm not sure if the references are exactly right - it worked with the few sheets I created.

Dim ws As Worksheet
Dim rng As Range
Dim I As Long
 
    Set ws = Worksheets("Sheet1")
 
    For I = 203 To 400
 
        Set rng = ws.Range("E" & I)
 
        rng.Hyperlinks.Add Anchor:=rng, Address:="", SubAddress:="Sheet" & I - 2 & "!A1", TextToDisplay:="Sheet" & I - 2 & "!A1"

    Next I

 

[BrendanDixon]

Thanks,

With a bit of editing it worked!