Try:
![]()
With Worksheets(shSearch).Cells(Rows.Count, "f").End(xlUp) .Offset(1) = ws.Name ActiveSheet.Hyperlinks.Add _ Anchor:=.Offset(1), _ Address:="", _ SubAddress:="'" & ws.Name & "'!H2", _ TextToDisplay:=ws.Name .Offset(1, 1) = FoundCell.Offset(0, 0), etc.
Bookmarks