Hi all
So I am making a spreadsheet that inserts an image based on what cell B2 contains e.g I put in salmon, hopefully I get an image of a salmon. So far I have the following

Dim URL As String
URL = "https://www.google.co.in/search?q=" & Cells(2, 2) & "&source=lnms&tbm=isch&sa=X" & "&rnd=" & WorksheetFunction.RandBetween(1, 10000)
Sheets(1).Shapes.AddPicture URL _
, msoFalse, msoTrue, 100, 100, 50, 50

Now the URL gets me the image result page for Google images but that's not good enough, I need the first result from the search (or the second or third- it doesn't really matter which one, it only matters that I get a result at all). The second line inserts the image as needed but without a working link, its all for nothing.

I don't need to use Google images- I am happy to use any search engine that will return me a image related to the search criteria. Ideally I would just use the built in online pictures part of excel but recording a macro with that doesn't work (it just points at the temp image file that is created).

Any ideas would be gratefully received.
Many thanks