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" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>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.
>
|