Code to search for all hyperlinks in a column & copy them to an alternative sheet

Hi all,

I've having limited success with the following code, the code should look for all hyperlinks in a specified column (Sheet "Page4+" Column "G") & copy each one to an alternative sheet ("HL"). The code works if copied to the same sheet ("Page4+") but as soon as I try to redirect the results to a separate sheet the code fails? Any help as always will be greatly appreciated, thank you - Marco

Sub FNRMacro()
  With Worksheets("Page4+")
    For Each hl In .Range("G1:G4642").Hyperlinks
    With Worksheets("HL").Select
      .Hyperlinks.Add .Cells(Rows.Count, "A").End(xlUp).Offset(1), hl.Address
    Next hl
  End With
End Sub