Insert Picture VBA

[Dingy84]

Hi all,
I have VBA Code that inserts a selected picture and resizes it to fit where i want. However i am using 2007 and when someone try's to use it on 2003 it doesn't work. Anyone know why? The code i'm using is:
Thanks!!

Sub InsertPicture()
Dim sPicture As String, pic As Picture

sPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _
, "Select Picture to Import")

If sPicture = "False" Then Exit Sub

Set pic = ActiveSheet.Pictures.Insert(sPicture)
With pic
.ShapeRange.LockAspectRatio = msoFalse
.Height = ActiveCell.Height
.Width = ActiveCell.Width
.Top = ActiveCell.Top
.Left = ActiveCell.Left
.Placement = xlMoveAndSize
End With

Set pic = Nothing

End Sub

 

[Oorang]

This tests fine on both version for me. Could be the source of the problem lies elsewhere.