Sub HyperCopy()
Dim s1 As Worksheet, s2 As Worksheet
Dim h As Hyperlink, s As String
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
For Each h In s1.Hyperlinks
s = h.Parent.Address
s1.Range(s).Copy s2.Range(s)
Next
End Sub

--
Gary''s Student - gsnu200909