突发奇想、能不能让sheet1里面所有新生成绿色行数据自动链

我平时都是粘贴链接的方式操作 想来点骚操作 大神们帮帮我

大佬救命

写了个VBA，发现绿色整行链接到sheet2的A1，其他位置自己改
--------------------------------
Sub Link()
Dim i As Long, LastRow As Long
Dim j As Long
'确定最后一行
LastRow = Cells(ActiveSheet.Cells.Rows.Count, 1).End(xlUp).Row
'从A1向下查找
For i = 1 To LastRow Step 1
j = Cells(i, 1).Interior.Color
'发现绿色，色号可能不一致
If j = 5287936 Then
'选择整行
Rows(i).Activate
'链接sheet2
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Sheet2!A1"
End If
Next i
End Sub

放进去了，怎么操作 点了编译 这回没报错 还需要改哪里才能实现 vba我是完全不懂