グループ化されたオートシェイプを解除して
テキスト変更して再グループをして終了させたいのですが
これだとその都度グループ番号が変わっちゃって使えません＞＜；
他にいい指定方法ありませんか？

ActiveSheet.Shapes("Group 526").Select
Selection.ShapeRange.Ungroup.Select

ActiveSheet.Shapes("Rectangle 101").Select
Selection.Characters.Text = "ほげ１"

ActiveSheet.Shapes("Rectangle 126").Select
Selection.Characters.Text = "ほげ２"

ActiveSheet.Shapes("Rectangle 127").Select
Selection.ShapeRange.Regroup.Select
Selection.Characters.Text = "ほげ３"