Delete all shapes in specified range with macro

Hi all,

I need a macro to delete all shapes in a specified range of cells (C13:P35) on the first sheet of my workbook. I have a macro that does this and works perfectly when I just run it by itself. Here is the code:

Sub DeleteShapes()
Dim shp As Shape

    For Each shp In ActiveSheet.Shapes
    
        If Not Intersect(shp.TopLeftCell, Range("C13:P35")) Is Nothing Then
        
            shp.Delete
        End If
    Next shp

End Sub

My problem occurs when I want to run this macro along with others on Sheet1. Here is the code I am attempting to run:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$F$11" Then
   Application.EnableEvents = False
   If Target.Value = "100 - Pay Change" Then
   Call ProtectionOff
   Call DeleteShapes
   Call PayChange
   Call ProtectionOn
   ElseIf Target.Value = "140 - Education Pay" Then
   Call ProtectionOff
   Call DeleteShapes
   Call EducationPay
   Call ProtectionOn
   Application.EnableEvents = True
 End If
End Sub

Running the above without the "Call DeleteShapes" in each scenario works perfectly. When I add "Call DeleteShapes" it tells me I have an error in this line of code from my DeleteShapes macro:

If Not Intersect(shp.TopLeftCell, Range("C13:P35")) Is Nothing Then

Again, I do not get an error when I run this DeleteShapes macro by itself, only when I "Call" it. I am using Excel 2010 and don't really have any experience with macros. Thank you for any help you can give!

Does anyone have any ideas?

Thank you for your reply, but I don't quite follow. Can you please explain where I am missing an End If?

Oh, I see what you mean - thanks. I actually already have that End If in my full code. I just forgot to include it in the shortened version of my code that I posted in this thread. Good catch though, but not the problem.

When I run the below macro (DeleteShapes) by itself, it does what I want. i.e. deletes all shapes in the specified range

Sub DeleteShapes()
Dim shp As Shape


    For Each shp In Sheet1.Shapes
    
        If Not Intersect(shp.TopLeftCell, Sheet1.Range("C13:P35")) Is Nothing Then
        
            shp.Delete
        End If
    Next shp


End Sub

When I run the below Change event code which includes the DeleteShapes macro, it returns a 1004 Run-time error:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$F$11" Then
   Application.EnableEvents = False
   If Target.Value = "100 - Pay Change" Then
   Call ProtectionOff
   Call DeleteShapes
   Call PayChange
   Call ProtectionOn
   ElseIf Target.Value = "140 - Education Pay" Then
   Call ProtectionOff
   Call DeleteShapes
   Call EducationPay
   Call ProtectionOn
   End If
   Application.EnableEvents = True
 End If
End Sub

When I hit Debug on the error, It highlights the following code in the DeleteShapes macro:

If Not Intersect(shp.TopLeftCell, Sheet1.Range("C13:P35")) Is Nothing Then

Is there any way to diagnose which specific part of the above line of code is causing the error? I suspect it might have to do with the TopLeftCell section.

How do I determine what the address of shp.Topleftcell is? I don't have much experience with macros so I don't really know my way around. I don't want to post my workbook on this forum, but can I email it to you possibly? I have a feeling this is a very simple problem.