Problem with range statement

[martinbv]

I have a VBA routine that takes pictures from a database and displays them beside some relevant data. There are up to four images per display sheet.

The routine works perfectly on my desktop machine and also on three other laptops but when transferred to another desktop the images appear on top of one another at a different location on the spreadsheet-they are all there and can manually be shifted to their correct locations.

My machine runs Widnows 7 and I was using Excel 2010 to develop the package. The desktop which fails to position the pictures correctly is Windows 7 and Excel 2007. In this case the routine displays the images with C3 as the locating cell rather than Q1, Q13, Q25 and Q37. Every other aspect of the routines runs perfectly.

For example in each case I use the following code to position and then insert the image;

Range("Q37").Select
temp2 = ThisWorkbook.Path & "\pictures\" & temp
ActiveSheet.Pictures.Insert(temp2).Select
Selection.ShapeRange.Height = 100

I have also tried

Range("Q37").Activate

Thanks for any ideas on what is going on here.

Brian

[snb]

Ples use codetags around the VBA code

You need to use 'Top' & 'Left' to position shapes .