Send shapes back automatically

If I draw a new shape in my spreadsheet I want it to automatically be "Sent to the back", is there a way I can do this, perhaps by using some sort of VB code in the Worksheet open module? Any other way?

Thanks

You mayu use this code:

Sub Macro2()
   For Each sh In ActiveSheet.Shapes
      sh.ZOrder msoSendToBack
   Next
End Sub

I hope it can help you.

Regards,
Antonio