Delete Shapes in Range - Loop

[fischeraw]

Hi everyone,

I'm new to writing macros and need a little coaching. I'm trying to delete some shapes in a range. The workbook has 12 tabs and the same shapes apprear in each tab. I'm trying to loop the deletion of the shapes for all the tabs.

It errors out at "Intersect"

Sub DELETESHAPERANGE()
Dim ws As Worksheet
Dim s As Shape
For Each ws In ActiveWorkbook.Sheets
For Each s In ws.Shapes
If Not Intersect(s.TopLeftCell, .Range("A1:AZ8")) Is Nothing Then s.Delete
Next s
Next ws
End Sub

Thanks for the help

 

[Marcelo Branco]

Maybe

Sub aTest()
    Dim ws As Worksheet
    Dim s As Shape
    For Each ws In ActiveWorkbook.Sheets
        With ws
            For Each s In .Shapes
                If Not Intersect(s.TopLeftCell, .Range("A1:A8")) Is Nothing Then s.Delete
            Next s
        End With
    Next ws
End Sub

M.

 

[fischeraw]

Oops...sorry. Using Excel 2007

 

[fischeraw]

Awesome!! Thanks Marcelo!!

 

[Marcelo Branco]

Awesome!! Thanks Marcelo!!

You are welcome and thanks for the feedback!

m.