Mass rename hyperlinks

[MrTinkertrain]

Hello all,

In my document I have a list of 4000+ items.
In col G there are hyperlinks to an image of that particular item on my harddrive
The syntax of the hyperlinks is now as follows :

"G:\Fminer\7935.jpg"
"G:\Fminer\7936.jpg"
"G:\Fminer\7937.jpg"
etc

I would like to achieve that my hyperlinks stay intact, but that for each and every hyperlink the text "IMAGE" is displayed.

How can I achieve that ?

Many thanks in advance

 

[John_w]

Sub Change_Hyperlinks()
    
    Dim link As Hyperlink
    
    For Each link In ActiveSheet.Hyperlinks
        If link.Range.Column = 7 Then       'Column G
            link.TextToDisplay = "IMAGE"
        End If
    Next
    
End Sub

 

[Chris84]

Hi try

=HYPERLINK("G:\Fminer\7935.jpg","IMAGE")

 

[MrTinkertrain]

Thanks, John_w,

Your solution works like a jiffy