I have the following code which converts a text link into a clickable link. It then display 'URL' instead of the whole web address. However some of the rows never contain a URL and therefore are blank but my code still puts the word URL for the null records.
What do I need to change in my code in order to ignore the null cells?
'Make URL clickable
Dim Cell As Range
Dim CheckRange As Range
On Error Resume Next
Set CheckRange = Sheets("Quote").Range("B2")
Set CheckRange = Range(CheckRange, Cells(ActiveSheet.Rows.Count, _
CheckRange.Column).End(xlUp))
For Each Cell In CheckRange.Cells
Cell.Parent.Hyperlinks.Add Anchor:=Cell, Address:= _
Cell.Value, TextToDisplay:="URL"
Next Cell
Solved by S. A. in 25 mins