Code not working

[jarhead58]

I'm using this to clear shapes in a range of cells but it comes back as Run-Time error 424: Object required. What am I missing? TIA

Sub clear_cells()
Dim sh As Shape
    For Each sh In Activesheets.Shapes
        If Not Intersect(Range("F13:T21"), sh.TopLeftCell) Is Nothing Then
        sh.Delete
        End If
    Next sh
Range("F13:T21").ClearContents
Range("B2, B5, C5, F2, H5").ClearContents
End Sub

 

[Fluff]

As you haven't said where the error occurs, I'm guessing that it's the For Each line.
If so Activesheet should be singular, not plural.

 

[jarhead58]

Yep! old age strikes again lol!! Thanks Fluff!!

As you haven't said where the error occurs, I'm guessing that it's the For Each line.
If so Activesheet should be singular, not plural.

 

[Fluff]

You're welcome