Sub Add_Shapes_To_All()
Dim ws As Worksheet
For Each ws In ActiveWindow.SelectedSheets
' For Each ws In ActiveWorkbook.Worksheets
ActiveSheet.Shapes.AddShape(msoShapeCross, 504.75, 65.25, 104.25, 113.25). _
Select
Range("A1").Select
Next ws
End Sub


Gord Dibben MS Excel MVP

On Thu, 11 Oct 2007 08:42:02 -0700, Fuel Cells for the Future
wrote:

Hello:

When I select multiple worksheets at once, and go into the Autoshapes
drop-down menu, everything in the drop down menu is greyed out. I want to
format multiple worksheets at once, with shapes - any suggestions?

Thanks,

Patricia