I am trying to insert an object in a specific cell. i can get it to work in
2003, but not in 2007 does anyone have any insight as to what i am doing
wrong....here is the code that i am using

Sub test()
'
' test Macro
' Macro recorded 7/7/2008 by mspears
'

'
Range("B30").select
ActiveSheet.Pictures.Insert("H:\scan0002.jpg").Sel ect
Selection.ShapeRange.PictureFormat.TransparentBack ground = msoTrue
Selection.ShapeRange.PictureFormat.TransparencyCol or = RGB(253, 253, 253)
Selection.ShapeRange.Fill.Visible = msoFalse
Application.CommandBars("Picture").Visible = False
End Sub