links in cells

[BrendanDixon]

Hi all,

I have a workbook with 400 sheets named "1", "2", "3" etc to "400"
In cell C1 of each sheet I want it to show the values of cells B3 to B403 in a sheet called index.

I have written this code but cannot seem to get it right to work.

Sub test3()
Dim I As Long
  
 
    For I = 2 To 400
 
        Sheets(I).Select
        Range("C1").Select
        ActiveCell.FormulaR1C1 = ("=Index!B" & (I) + 2)

    Next I
End Sub

Can anyone tell me what is wrong with this code and how can I fix it.

 

[Jonmo1]

Drop the R1C1
Also no need to select the sheet..

Try

For i = 2 To 400
    Sheets(i).Range("C1").Formula = "=Index!B" & i + 1
Next i

Presuming you meant that

Sheet2 C1 = Index B3
Sheet3 C1 = Index B4
Sheet4 C1 = Index B5
etc..