Tried, and failed, (i am not so sure I like the changes in 2007)
Any other suggestions

Wait, One change (just thought of)
With ActiveSheet.Cells(PopRow, PopCol)
Set yourPic = ActiveSheet.Pictures.Insert(Picstring)
yourPic.ShapeRange.LockAspectRatio = msoFalse
yourPic.Width = Cells(PopRow, PopCol).Width
yourPic.Height = Cells(PopRow, PopCol).Height
yourPic.Top = Cells(PopRow, PopCol).Top
yourPic.Left = Cells(PopRow, PopCol).Left
End With


Thank you 2003 recorder.

and thanks for doing that for me, i have no access to 2003