Works for me, XL2003

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 93#, 126#, 84.75, 86.25). _
Select
--
-John
Please rate when your question is answered to help us and others know what
is helpful.


"Mark Stephens" wrote:

I usually record something and then look at the macro code, clean it up and
use it. Problem is when I insert an autoshape nothing records, any reason
why not?

Thanks and regards, mark