As an added note, if the listboxes are off the forms toolbox you could
use:
Code:
--------------------
Sub LoopListBoxes()
Dim OleObj As OLEObject

For Each OleObj In ActiveSheet.OLEObjects
'DO SOMETHING
Next OleObj
End Sub

--------------------

Simon Lloyd;214079 Wrote:
Which version of excel are you using?, the controls on a worksheet are
Activex Objects.
Perhaps attach a workbook so we can help you directly with that.
*Attatchments. *

To upload a workbook, click reply then add your few words, scroll down
past the submit button and you will see the Manage Attatchments button,
this is where you get to add files for upload, if you have any trouble
please use this link or the one at the bottom of the
any page.



--
Simon Lloyd

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=58770