VBA / change caption of ActiveX checkboxes using a loop

[PhilippeMortreux]

Hello,

I am trying to change checkboxes caption name using a loop so that I don't have to change them individually.
Here is a simplified example of what want to do:

1) I save the caption names in a array
2) I run through a loop to rename each checkboxes using the names saved in the array

Sub change_Checkbox_Caption

Dim MyArray(1to3) as string
Dim IndexMyArray as integer

MyArray(1) = "YES"
MyArray(2) = "No"
MyArray(3) = "Maybe"

For indexMyArray = 1 to 3

Sheets(1).checkbox& IndexMyArray.Caption =MyArray(IndexMyArray).value

Next indexMyArray

end sub

I am really stucked, if you have a solution to suggest it would be very helpful
Thankfully
-Phil

 

[MickG]

Try this:-

[COLOR="Navy"]Sub[/COLOR] MG24Jan25
[COLOR="Navy"]Dim[/COLOR] MyArray(1 To 3) [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String[/COLOR]
[COLOR="Navy"]Dim[/COLOR] IndexMyArray [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
MyArray(1) = "YES"
MyArray(2) = "No"
MyArray(3) = "Maybe"
[COLOR="Navy"]For[/COLOR] IndexMyArray = 1 To 3
Sheets("Sheet1").OLEObjects("CheckBox" & IndexMyArray).Object.Caption = MyArray(IndexMyArray)
[COLOR="Navy"]Next[/COLOR] IndexMyArray
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[PhilippeMortreux]

Thank you so much, mike

it works!!