VBA code Create Hyperlink to direct to cell content in another sheet

[UDK]

Hi ,
I want to create a Hyperlink in Sheet2 of column 1, that direct to the address mentioned in sheet2(Rowno and Column) to Sheet1. Attached the Excel Sheet for your reference. Thank you in advance.

Sheet1:

Hyperlink test.xlsx
	A	B	C	D	E	F
1	A	B	C	D	E	F
2	82	47	32	63	51	82
3	69	37	49	45	46	62
4	25	48	67	58	99	73
5	6	94	55	39	69	59
6	55	9	30	87	59	8
7	72	89	91	97	62	74
8	52	72	99	32	99	15
9	83	74	99	54	19	72
10	14	87	7	31	82	1
11	24	55	52	26	74	60
12	77	47	53	52	19	67
13	56	57	70	87	22	1
14	22	31	84	24	75	91
15	83	44	77	94	28	99
16	66	30	45	50	72	40
17	6	55	54	62	11	50
18	77	60	87	28	60	71
19	47	63	13	12	57	21
20	60	28	14	12	13	55
21	33	62	71	55	17	27
22	48	100	26	86	51	41
23	75	90	22	53	51	59
24	100	94	87	33	58	77
25	83	2	73	56	71	25
26	32	16	43	48	4	92
27	90	46	70	99	5	5
28	11	22	56	62	47	31
29	9	79	70	9	94	33
30	49	37	26	46	81	94
31	8	93	32	64	38	64
32	9	15	53	84	70	34
33	5	3	42	40	82	58
34	1	62	100	61	72	90
35	75	59	13	41	19	25
36	43	55	82	50	67	58
37	45	61	87	72	92	43
38	13	42	52	75	23	64
39	51	85	39	65	81	83
40	79	45	49	81	2	81
41	33	86	64	74	68	61
42	98	33	30	65	20	77
43	13	67	19	96	20	25
44	59	88	84	91	98	29
45	34	99	2	3	62	66
46	33	96	11	11	20	80
47	34	36	21	70	91	71
48	71	79	60	10	33	39
49	9	38	48	10	83	97
50	100	70	99	25	30	74
51	52	33	28	27	26	85
52	88	37	85	58	7	49
Sheet1

 

[Momentman]

You could try the below

Sub Hyperlinks()
    Dim i As Long, wks As Worksheet, wks2 As Worksheet
    Set wks = Worksheets("Sheet1")
    Set wks2 = Worksheets("Sheet2")
    
    For i = 2 To wks2.Range("A" & Rows.Count).End(xlUp).Row
        With wks2
            .Hyperlinks.Add Anchor:=.Cells(i, 1), Address:="", SubAddress:=wks.Name & "!" & .Cells(i, 2).Value & .Cells(i, 1).Value
        End With
    Next i
End Sub