A sample file might help but perhaps along the lines of:
Sub Example()
Dim rngD As Range, rngC As Range
On Error Resume Next
Set rngD = Intersect(ActiveSheet.UsedRange, ActiveSheet.Columns(1)).SpecialCells(xlCellTypeConstants, xlTextValues)
On Error GoTo 0
If Not rngD Is Nothing Then
For Each rngC In rngD.Cells
With rngC
If .Hyperlinks.Count > 0 Then
.Hyperlinks(1).TextToDisplay = "Click Here"
End If
End With
Next rngC
End If
Set rngD = Nothing
End Sub
in the above Hyperlinks are assumed to be listed in Column A and are not being generated via HYPERLINK function.
Bookmarks