Insert this line of code into the macro:

ActiveSheet.Range("A1").Select

You could also rework the code to avoid selecting the shape in the first
place.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______


"Stumpiana" wrote in message
...
When automating Excel, if there is a picture (graphic) on the worksheet,
when
the file is opened, the picture has the focus and mouse-clicks anywhere on
the Excel window are lost. Is there a way to get the focus back so that
other cells can be editted?