Hello!
I have this code that creates Hyperlinks in every cell in a named range. I'm trying (without luck) to ONLY create a link if there's a value in the cell. In other words, skip blank cells. Here's my code so far:
I have this code that creates Hyperlinks in every cell in a named range. I'm trying (without luck) to ONLY create a link if there's a value in the cell. In other words, skip blank cells. Here's my code so far:
VBA Code:
Sub AddJobEditHyperlinks()
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'Add Notes Hyperlinks
Dim cl As Range
For Each cl In Range("SubLotColumn", Range("C" & Rows.Count).End(xlUp))
ActiveSheet.Hyperlinks.Add Anchor:=cl, Address:="", SubAddress:= _
cl.Address, ScreenTip:="Click To Open Job Edit Window"
Next cl
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub