Oops, copied the wrong code. This is the correct code module I'm using:
----- Code Module -----
Sub test()
Dim mySheet As BISheets, x As Long

Set mySheet = New BISheets
mySheet.Find
For x = 1 To mySheet.Count
MsgBox mySheet.Name
Next
End Sub
----- End -----

"Toby Erkson" <t o b y e a t b i d a t a d o t n e t wrote in message
...
... My testing code module. This will properly display the two worksheets
out of 10 in my test workbook:
----- Code Module -----
Sub test()
Dim mySheet As BISheets, x As Long

Set mySheet = New BISheets
BISheet.Find
For x = 1 To mySheet.Count
MsgBox mySheet.Name
Next
End Sub
----- End -----
The fact that the .Name and .Item even work was a wild leap on my part
based...