Sleeper: Code not deleting shape

Hi there,

I have this code:

Code:

---

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("AL10")) Is Nothing Then
    If Range("AL2") = 1 Or Range("AL2") = 2 Then
        If Range("AP2") = 0 Then
            application.ScreenUpdating = False
            ActiveSheet.Shapes.AddShape(msoShapeRectangle, 1850, 150, 150, 100).Select
            With Selection.ShapeRange.Fill
                .Visible = msoTrue
                .ForeColor.ObjectThemeColor = msoThemeColorBackground1
                .ForeColor.TintAndShade = 0
                .ForeColor.Brightness = -0.150000006
                .Transparency = 0
                .Solid
            End With
            Selection.ShapeRange.Line.Visible = msoFalse
            Selection.ShapeRange.Name = "Scooby"
            Range("AP2").Select
            ActiveCell.FormulaR1C1 = 1
            Range("AL10").Select
        End If
        If Not Intersect(Target, Range("AL10")) Is Nothing Then
            If Range("AL2") > 2 And Range("AP2") = 1 Then
                application.ScreenUpdating = False
                ActiveSheet.Shapes.Range(Array("Scooby")).Select
                Selection.Delete
                Range("AP2").Select
                ActiveCell.FormulaR1C1 = 0
                Range("AL10").Select
                Exit Sub
            End If
        End If
    End If
End If
End Sub

---

The first half works, but the second half to delete the shape refuses to work. I have tried various alterations except the correct one. Please help me to get the latter part right to delete the shape when certain condition exists. I will be forever grateful!!..thank you all..