looping through controls

[cmpcwil2]

Is there a way to loop through controls (e.g. vb checkBox) that are o
the worksheet. I know you can do this for the userForm as follows

For Each ctrl In UserForm1.Controls
If TypeName(ctrl) = "CheckBox" Then
MsgBox CheckBox.Text
End If
Next ctrl

Is this possible for an active worksheet

 

[Peter81]

Hope this is what you are after.

Sub erm()

Dim mycntrl As OLEObject
Dim sht As Worksheet

Set sht = ActiveSheet

For Each mycntrl In sht.OLEObjects

MsgBox mycntrl.Name

Next mycntrl


End Sub


Pet

 

[Guest]

I think you have to do it by specific type of control, eg TextBox

 

[Bob Phillips]

If they are forms toolbar checkboxes, then use

Dim ctrl As CheckBox
For Each ctrl In ActiveSheet.CheckBoxes
MsgBox ctrl.Name
Next ctrl


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

 

[cmpcwil2]

Thanks for all your help, just what I needed!