Hi--

 VB 6 allows the creation in a class module of a NewEnum function (see below). The function permits the class to be searched using a For Each loop.

When I try to do the same in Excel Vba I get the message:

 Compile error: Function or interface marked as restricted, or the function uses an Automation type not supported in Visual Basic

Is this a limitation of Excel Vba or is there a way to set up the references and/or properties to get this functionality

Thanks,

Barry
--------------------------------------------
Public Function NewEnum() As IUnknown
  Set NewEnum = myFieldKey.[_NewEnum]
End Function

in VB6, to specify this attribute for the NewEnum method you use the "Procedure Attributes" menu item. In VBA there's no similar option, however you can achieve the same result by either:

1) create the collection class (I assume that's what it is) in VB6, then take the resulting ".cls" file and import into your VBA project.

2) from VBA, export the class module and open it in a text editor such as notepad. Modify the function so that it reads:

then save the ".cls" file, and import it back into your VBA project.

As you can see, both are hacks, but they're accepted ways around the problem