Hyperlink text to image

Dear Humding

we are nearly there

i actually needed to have the file path as i want to refer to a specific cell as the location of the images may change
so i changed the code as per the below



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sh As Worksheet
Dim PcRng As Range
Dim rng As Range
Dim strFile As String

Set sh = Sheets("Accreditation")

If Target.Column < 14 Then Exit Sub
If Target.Row < 4 Then Exit Sub

'Assume this is fixed
FilePath = ActiveSheet.Range("u1").Value


'load external viewer
Shell ("RunDLL32.exe C:\Windows\System32\Shimgvw.dll,ImageView_Fullscreen " & FilePath)

End Sub



it works in the sence that if i change the path then the image still shows, the problem now is that it always shows the same image instead of changing . i have attached the Excel