Excel 2007 :: VBA To Insert Hyperlink In Images

with the following: The VBA macro I am using, is derived from the excellent "Table of Contents" macro written by Erik Van Geit, a few years ago.

I have a workbook (in Excel 2007, Windows XP) with an Index sheet and 200 other sheets (called ScreenShot1 to ScreenShot200). Each of these 200 sheets has had an image pasted in the top left corner.

At present, using the macro below, a hyperlink is placed in cell A1 on each of these 200 sheets (it's behind the image) that links to cell M1 on the Index sheet. What I would like this macro to do is make each image the hyperlink back to cell M1 on the Index sheet. Please note that the images are not named.

VBA code below,

Sub create_TOC()
Dim i As Integer
Dim msg As String
Dim fc_order As Range
Dim sht As Object
'**** EDIT the following lines ****
Const TOC = "Table of Contents"
Const Index = "Index"
Const CellLink = "A1"
'**** END EDIT ****

[Code]....