Hi Bookworm

For Each myshape In ActiveSheet.Shapes
' Your code
Next myshape


You can use this if you want to run your code only for pictures or something else

If myshape.Type = msoOLEControlObject Then .....
If myshape.Type = msoFormControl Then ......
If myshape.Type = msoPicture Then .....
If myshape.Type = msoAutoShape Or myshape.Type = msoLine Then .....
If myshape.Type = msoTextBox Then .....

There are more options


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"bookworm98 " wrote in message ...
If I puts the textboxes, comboboxes,... on a sheet. Is there any way in
Execel VBA to loop through these components?
Please help me if you know. Thanks a lot!


---
Message posted from http://www.ExcelForum.com/