Positioning Shapes based off another Shape

[stirlingmw1]

Morning All

I have a worksheet with multiple Shapes. These Shapes are named "Cause1", "Cause2", Cause3" etc. The number of these Shapes is based on the number of Rows of Data present in Column C. I have other Shapes but with different names based on data from other Columns I am trying to select all of the Shapes that contain the name "Cause" so that I can Group them to see the Total Height of these Shapes and the Gaps in between them. I will then Use the Centre point of this group as the Top position of another Shape. The Code I am trying to get to work is below, but does not seem to work.

NumOfCauses = ActiveSheet.Range("C2").End(xlDown).Row - 1

    For i = 1 To NumOfCauses
        
   For Each Sh In ActiveSheet.Shapes
    If Sh.Name = "Cause" & i Then Sh.Select True
  Next
  With Selection
  .Group

 End With
 Next i

End Sub

Any ideas what I am doing wrong or another way I should be thinking about it?

Thanks

Steve

 

[Snakehips]

@stirlingmw1
Try this.

Sub ShapeSel()
Dim ShpArry() As String
Dim i As Integer
NumOfCauses = ActiveSheet.Range("C2").End(xlDown).Row - 1
ReDim ShpArry(1 To NumOfCauses)
    For i = 1 To NumOfCauses
    ShpArry(i) = "Cause" & i
    Next i
    ActiveSheet.Shapes.Range(ShpArry).Select
   
  Selection.Group
End Sub

Hope that helps.

 

[stirlingmw1]

@stirlingmw1
Try this.

Sub ShapeSel()
Dim ShpArry() As String
Dim i As Integer
NumOfCauses = ActiveSheet.Range("C2").End(xlDown).Row - 1
ReDim ShpArry(1 To NumOfCauses)
    For i = 1 To NumOfCauses
    ShpArry(i) = "Cause" & i
    Next i
    ActiveSheet.Shapes.Range(ShpArry).Select
  
  Selection.Group
End Sub

Hope that helps.

Tony

Thank you, works perfect.


Steve