Sub Liens()
Dim c As Range
Application.ScreenUpdating = False
For Each c In ActiveSheet.Range("D7:D" & ActiveSheet.Range("D65536").End(xlUp).Row)
ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="", SubAddress:= _
"'" & c.Value & "'!A1"
Next c
Columns(58).Font.Size = 7
Columns(58).Font.ColorIndex = 0
Application.ScreenUpdating = True
End Sub