Problem 1
solution...
    ' Add a name to the cell
    cellname = "Error_" & Format(row, "00000") & Format(col, "00")
    wb.Names.Add name:=cellname, RefersToR1C1:="=" & ws.name & "!" & "R" & row & "C" & col
    Worksheets("Errors").Select
    Range("A" & err_row & ":C" & err_row).Select
    ' Create hyperlink to cell
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",SubAddress:=cellname

solution 2 to follow...

TTFN

Matt