Hello Fluff, I created the VBA macro and a Button (Form Control) and linked the button to my macro. I also saved the sheet as an .XLSM extension.The code needs to go in a standard module Insert and run VBA macros in Excel - step-by-step guide
Then if you insert a shape, or a form control button, onto the sheet, right click & assign macro.
I wasn't thinking, that's because of the button, tryBut...I get a Run-Time error 438. Object doesn't support this property or method.
Sub RobertC()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
If Shp.FormControlType = 2 Then Shp.ControlFormat.ListIndex = 1
Next Shp
End Sub
That works great! Thank you, Fluff. I will study up on the material that you provided.I wasn't thinking, that's because of the button, tryVBA Code:Sub RobertC() Dim Shp As Shape For Each Shp In ActiveSheet.Shapes If Shp.FormControlType = 2 Then Shp.ControlFormat.ListIndex = 1 Next Shp End Sub