Checkbox Name Change?

[J.W. Aldridge]

I have a long list of words of which I would like to use as checkbox
names. Instead of the name "checkbox 1", "checkbox 2", etc... Is there
any way I can automatically change these names to the words in my
list? (without having to go through edit text / or click on each
individual name)

Looking for the quickest way to get this done.

Thanx.

 

[Guest]

Are your checkboxes from the forms toolbar or from the control toolbox?

 

[Bob Phillips]

A simple two namer,

Sub ChangeNames()
Dim cb As Object
Dim i As Long
Dim aryNames

aryNames = Array("Domestic", "Commercial")
For Each cb In ActiveSheet.CheckBoxes
cb.Caption = aryNames(i)
i = i + 1
Next cb
End Sub


extend as required.

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[J.W. Aldridge]

Inserted from forms toolbar