Checkbox control

[packat]

I have 10 checkboxes with names chkParams1,
chkParams2,...,chkParams10.

I am writing a sub to reset these boxes using a control box.
I could simply put the statement:
Sheet11.chkParams1.Value = False .....

for all of the boxes. But I am wondering if there is a
better way using a for loop.
How do I make the checkbox name dynamic so that I can do the
following:

Private Sub btnResetConst_Click()
Dim i As Integer
For i = 1 To 14
Sheet11.chkParams???.Value = False
next i
End Sub



Thanks,
pac

 

[Tom Ogilvy]

Private Sub btnResetConst_Click()
Dim i As Integer
For i = 1 To 14
Sheet11.OleObjects("chkParams" & i).Value = False
next i
End Sub

 

[Bob Phillips]

Dim i As Integer
For i = 1 To 14
Sheet11.OLEObjects("chkParams" & i).Object.Value = False
Next i


--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Tom Ogilvy]

Whoops, - left off the Object qualifier

Private Sub btnResetConst_Click()
Dim i As Integer
For i = 1 To 14
Sheet11.OleObjects("chkParams" & i).Object.Value = False
next i
End Sub

 

[packat]

Thanks Tom,
Works nicely.

Whoops, - left off the Object qualifier

Private Sub btnResetConst_Click()
Dim i As Integer
For i = 1 To 14
Sheet11.OleObjects("chkParams" & i).Object.Value =
False
next i
End Sub

 

[Don Wiss]

I have 10 checkboxes with names chkParams1,
chkParams2,...,chkParams10.

I am writing a sub to reset these boxes using a control box.
I could simply put the statement:
Sheet11.chkParams1.Value = False .....

for all of the boxes. But I am wondering if there is a
better way using a for loop.

If you link each checkbox to a LinkedCell, and put the cells together and
assign them a range name, you can do it without a loop:

Range("CheckBoxCells").Value = False

Don <donwiss at panix.com>.

 

[packat]

Thanks Don. The ocde is now even tighter! I did try that
before posting the question, but it did't work. Come to
think of it, perhaps the control was in edit mode
pax