Macuil0101,
One way:
Sub tgr()
Static ws1 As Worksheet: Set ws1 = Sheets("sheet1")
Static ws2 As Worksheet: Set ws2 = Sheets("sheet2")
Dim ACell As Range
Dim rngFound As Range
Dim LinkMade As Boolean
For Each ACell In Intersect(ws1.UsedRange, ws1.Columns("A"))
Set rngFound = ws2.Cells.Find(ACell.Value)
If Not rngFound Is Nothing Then
LinkMade = False
While Not rngFound Is Nothing And LinkMade = False
If rngFound.Offset(0, 1).Value = ACell.Offset(0, 1).Value Then
ws1.Hyperlinks.Add ACell, "", "'" & rngFound.Worksheet.Name & "'!" & rngFound.Address, , ACell.Value
LinkMade = True
End If
Set rngFound = ws2.Cells.Find(ACell.Value, rngFound)
Wend
Set rngFound = Nothing
End If
Next ACell
End Sub
Hope that helps,
~tigeravatar
Bookmarks