VBA - Grouping Shapes & Deleting Them

I already have a macro that will draw up to 36 shapes (combo of ovals and freeforms) all on a range I call "DrawRange". I am trying to add to this to group all the shapes so that a user can move/manipulate the drawing easily. And I would like to also be able to delete this shape, via VBA, in the event of a "re-draw" event initiated by a user.

The code I have currently for the group is similar to delete so we'll just focus on that. Here is what I have:

Sub GroupShapes()
Dim shp As Shape
Dim r As Range
Set r = Range("DrawRange")
For Each shp In ActiveSheet.Shapes
 If Not Intersect(shp.TopLeftCell, r) Is Nothing Then
 shp.Select Replace:=False
 End If
Next shp
Selection.Group
End Sub

This works... sometimes. However often enough I get an error "Application-Defined or Object Defined Error" listed on the "Not Intersect" line. I'm not sure what I'm being told in that error message nor how to go about fixing it. Any help is greatly appreciated.

And for anyone interested, the delete routine is similar to above except after the Not Intersect line, I use "shp.delete".

Thank you