aktiver Autoform Makro zuweisen

Sub C10()
ActiveSheet.Shapes("Rectangle 154").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.OnAction = "C40 "
End Sub

Sub C40()
ActiveSheet.Shapes("Rectangle 154").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 40
Selection.OnAction = "C10"
End Sub

Meine Frage:
Gibt es die Möglichkeit die Bezeichnung ("Rectangle 154")
durch einen Ausdruck wie "gewältes / aktives Rechteck" zu ersetzen ?
Hintergrund: ich möchte mehreren Autoformen in verschiedenen
Tabellenbättern das gleiche Makro zuweisen. Leider haben diese dann
ja unterschiedliche Bezeichnungen.
Oder kann man die Bezeichnung des aktiven Rechtecks auslesen und als
Variable in oben genannte Makros einbinden?
Oder ist es möglich meinen Autoformen eine
andere Bezeichnung beziehungsweise Nummer zuzuweisen,
die ich dann in meinem Makro anstatt ("Rectangle 154") verwenden kann?
würde mich über einen Lösungsansatz von euch freuen.
Vielen Dank im Vorraus.
Mit freundlichen Grüßen
floh