May’s Course of the Month is now available! Experts Exchange’s Premium Members and Team Accounts have access to a complimentary course each month as part of their membership—an extra way to increase training and boost professional development.
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.
|Chart to show data in four quadrants||6||21|
|need count all combination||31||33|
|Modifying VBA to exclude a single row of data when extracted to another workbook||7||17|
|Excel - query for count of numbers in a range||8||21|
Join the community of 500,000 technology professionals and ask your questions.