variable in object name

[Guest]

I have checkboxes with names from checkbox1 to checkbox20
if I try
sub whatever()
for i=1 to 20
if checkbox(i).value=true then
do sumething
end if
next i
end sub
I get error message that sub or function not defined. How to fix that?

 

[Tom Ogilvy]

sub whatever()
for i=1 to 20
if Activesheet.OleObjects("checkbox" & i).value=true then
do sumething
end if
next i
end sub

would be an example for a checkbox from the control toolbox toolbar where
the checkboxes have names like checkbox1 to checkbox20. You haven't said
where it is from or where it is located.

 

[Guest]

These checkboxes are located in userform

sub whatever()
for i=1 to 20
if Activesheet.OleObjects("checkbox" & i).value=true then
do sumething
end if
next i
end sub

would be an example for a checkbox from the control toolbox toolbar where
the checkboxes have names like checkbox1 to checkbox20. You haven't said
where it is from or where it is located.

 

[Tom Ogilvy]

sub whatever()
for i=1 to 20
if Userform1.Controls("checkbox" & i).value=true then
do sumething
end if
next i
end sub

 

[Guest]

Thanks a lot. And my task continues

sub whatever()
for i=1 to 20
if Userform1.Controls("checkbox" & i).value=true then
do sumething
end if
next i
end sub