My apologies royUK. I'll try to keep that in mind next time I post.
Regarding the question, I think I have this figured out and wanted to share if anyone was interested.
In my routine to draw all my shapes, I named them
And likewise for any other type as I looped through tables of coordinates & shape sizes. To select and group:
Sub SelectShape() Dim arrShapeNames() As Variant Dim shp As Shape Dim sr As ShapeRange Dim ws As Worksheet Dim i As Integer Set ws = ActiveSheet ReDim arrShapeNames(ws.Shapes.Count - 1) i = 0 For Each shp In ws.Shapes If Not InStr(shp.Name, "Oval") = 0 Then arrShapeNames(i) = shp.Name i = i + 1 End If If Not InStr(shp.Name, "Freeform") = 0 Then arrShapeNames(i) = shp.Name i = i + 1 End If Next Set sr = ws.Shapes.Range(arrShapeNames) Set srGroup = sr.Group srGroup.Name = "Group Name" Set sr = Nothing Set ws = Nothing End Sub
This grouped all the shapes with the names I had decided on before. And named the group.
To delete, I find the group name:
Thank you to anyone who took time to read my post.