Hyperlink

[YOUNAN]

Hello,

in sheet 2 cells A3:A302 I have numbers ( 60001 to 60300) , which should remain untouched.
when I click on A3 sheet 2 it should direct me to sheet 3 .
and when clicking on Sheet 2 A4 it would take to sheet 4 and so on.

clicking on Sheet 2 A5 takes me to sheet 5
clicking on Sheet 2 A6 takes me to sheet 6
clicking on Sheet 2 A7 takes me to sheet 7

and so on

the data in the Sheet 1 range from A3:A500 must remain as it is.

Thanks in advance.

 

[tyija1995]

Hey, try this:

Sub Hyperlink()
    Dim i As Long
    
    For i = 3 To ActiveWorkbook.Sheets.Count
        Sheets("Sheet2").Activate
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:= _
        "'" & Worksheets(i).Name & "'!A1", TextToDisplay:=i + 59998 & ""
    Next i
    
End Sub

 

[YOUNAN]

Thanks for quick reply.
I opened the file, click on ALT+F11, on the left side i cjose THis workbook from Project, double click on it, entered your code, when i click on run i get the following error:

Run time error '9': subscript out of range.

Please help

Best regards

 

[tyija1995]

Hello,

What is your Sheet 2 called exactly? I have assumed it to be "Sheet2"

 

[YOUNAN]

Hello,

Sheet 2 till sheet 302 are called 60001 to 60300.

Best Regards

 

[tyija1995]

Ok so the 2nd sheet is called "60001" ? If so then:

In the code I wrote change the Sheets("Sheet2").Activate line to Sheets("60001").Activate

 

[YOUNAN]

Hi again,

I am very grateful for your help, you saved my day.

Best regards

 

[tyija1995]

No worries, glad I could help!
Have a great day.