Changing the Option Button Name (not Caption)

[DRANDON]

I am trying to revise a few properties of an Option Button I have on my worksheet. I'm trying this:

Dim shp as shape
Set shp = ActiveSheet.Shapes(Selection.Name)

With shp.OLEFormat.Object
.Object.Caption = "2015"
.Name = "Y2015"
.Enabled = False
End With

All is successful except the Name. I've tried putting ".Object" in front of ".Name" to no avail. It remains what it was. Any ideas. Thank you so much.

 

[DRANDON]

After running the macro the Caption changes from "2013" to "2015". And the Enabled property is set to false so that the user cannot use it yet (greyed out). But the Name of the Option Button remains "Y2013".

 

[Norie]

Is that all the code?

 

[DRANDON]

Above the posted code there is also:
ActiveSheet.Shapes("Y2013").IncrementLeft 7.5
ActiveSheet.Shapes("Y2013").IncrementTop -75.5

 

[DRANDON]

I ended up removing the option button and added a new one via VBA. It worked out great.