Attribute VB_Name = "Link" Sub Link() Attribute Link.VB_ProcData.VB_Invoke_Func = " \n14" On Error GoTo ErrExit For i = 0 To Application.Rows.Count If Selection.Offset(i, 0) <> "" Then ActiveSheet.Hyperlinks.Add Anchor:=Selection.Offset(i, 0), Address:="" & Selection.Offset(i, 0), TextToDisplay:="" & Selection.Offset(i, 0) Else GoTo ErrExit End If Next i ErrExit: On Error GoTo 0 End Sub