We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub Convert_Path_To_Hyperlinks() Dim r As Range Dim MyValue As String On Error Resume Next For Each r In Range("B2", Range("B2").End(xlDown)) If r.Value <> "" Then MyValue = r.Value Range(r.Address).Select ActiveSheet.Hyperlinks.Add Anchor:=Excel.Selection, Address:=MyValue, TextToDisplay:=MyValue End If Next r Range("a1").Select End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.