I guess the really simply way is thisCode:'select a cell to locate picture at Range("G1").Select 'get the picture ActiveSheet.Pictures.Insert("C:\Users\YOUR NAME\Pictures\mypic.jpg").Select 'select the action with the cell Selection.Placement = xlMoveAndSize 'optional "Alt Text" you don't need this line Selection.ShapeRange.Title = Range("A1").Value 'add the hyperlink to the currently selected cell ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= _ http://www.yoursite.com/google.jpg
Bookmarks