Public Sub RangeToHyperlinks(ColNum As Integer, URL As String) Dim rcell As Range, rng As Range lRow = Get_lRow(ActiveSheet) Set rng = Range(Cells(2, ColNum), Cells(lRow, ColNum)) For Each rcell In rng.Cells If Not IsError(rcell.Value) Then If rcell.Value <> "" Then If rcell.Hyperlinks.Count = 0 Then ActiveSheet.Hyperlinks.Add rcell, URL & rcell.Value End If End If End If Next rcell End Sub
Welcome to FreeSoftwareServers Confluence Wiki
Overview
Content Tools