VBA worksheet array Clear graphs

[NPell]

What im trying to do is to clear all the Graphs / Shapes on a few
sheets.

Ive got..

Sub()
Dim Sh As Worksheet

For Each Sh In Array("Sheet 1", "Sheet 2", "Sheet 3")
Sh.Unprotect
Sh.Shapes(Sh.Shapes.Count).Delete
Range("A1").Select
Next Sh

End Sub

It doesnt work though?
Never was good with arrays.
Can anybody help? Or suggest something?

 

[Don Guillett]

try this

For Each Sh In Array("Sheet 1", "Sheet 2", "Sheet 3")
Sh.Unprotect
For Each s In sh.Shapes
s.Cut
Next
Next Sh