Hi,
Try this,
ActiveSheet.Shapes("Image1").Top = 15
ActiveSheet.Shapes("Image1").Left = 1
ActiveSheet.Shapes.SelectAll
Regards,
Shah Shailesh
http://members.lycos.co.uk/shahweb/
*** Sent via Developersdex
http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!