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.