Hi Robert,

If you prefer, here is a UDF equivalent...


Public Function HyperLinkName(PictureCell As Range) As String
On Error GoTo NO_HYPERLINK_PICTURE
Dim Shp As Shape

For Each Shp In ActiveSheet.Shapes
If Shp.Type = 13 Then
If Shp.TopLeftCell.Row = PictureCell.Row Then
HyperLinkName = Shp.Hyperlink.Name
End If
End If
NO_HYPERLINK_PICTU
Next Shp

End Function

If the Pictures are all in the same column, then if the top-most
picture is in D2 then...

=HyperLinkName(D2) filled down as far as needed should work.

If the Pictures are in different columns (and there is only one Picture
per row), then if the top-most Picture is in row 2 then...

=HyperLinkName(2:2) filled down as far as needed should work.

Ken Johnson