Insert Picture Code Not Working In 2007

I have used the following code behind a projects Command button for some time, and works well in Excel 2002/2003.
It's used to look for and insert a Picture file, located on the users PC, select cell C2, re-size it to fit inside a bordered cell area and then nudge it over, off the border line.

Sub Load_Image()
Dim oPict, PictObj
Dim sImgFileFormat As String
'Open file
GetPict:
oPict = Application.GetOpenFilename("All Pictures (*.tif; *.bmp; *.jpg; *.gif; *.jpeg; *.png; *.cpt; *.tiff),*.tif; *.bmp; *.jpg; *.gif; *.jpeg; *.png; *.cpt; *.tiff")
If oPict = False Then End
Range("C2").Select
Set PictObj = ActiveSheet.Pictures.Insert(oPict)
With PictObj
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Width = 712#
.ShapeRange.Height = 510#
End With
PictObj.Select
With PictObj
Selection.ShapeRange.IncrementLeft 1#
Selection.ShapeRange.IncrementTop 1#
End With
Range("A1").Select

End Sub

Unfortunately, Excel 2007 doesn't seem to identify the Cell reference "C2".
It modifies the Picture size OK but does not position the picture in the correct position.
I've tried re-recording it but 2007 misses most of actions.???
Despite my efforts looking on other forums, I don't seem to find a code that works on both version of Excel.