For Loop

[lucrahouse]

I'm trying to loop through shapes on a worksheet. These Shapes happen to be check boxes. I can call them by name as in this example.

ActiveSheet.Shapes("CB20_DTS").Select

But what I wanted to do is use the FOR LOOP but I can't seem to find the right wording.
This example doesn't work.

For Each Shape on Worksheet
   "do something here"
Next Shape

Can you correct the statement above?

 

[RobBroekhuis]

Dim Sh as Shape
...
for each Sh in activesheet.shapes
...
next Sh



Rob

 

[lucrahouse]

Thank you.
It works!