Модуль класса:

Private Type TmpDBType
    TmpDBType As Collection
End Type
Private Sub Class_Initialize()
    Set TmpDBType = New Collection
    'например, но могут изменяться в дальнейшей жизни

    TmpDBType.Add "ID_only"
    
    
    TmpDBType.Add "SMART_source_data_structure"
    
    TmpDBType.Add "By_Source_Range_Headers"

End Sub

Public Sub CreateTmpDBFromExcelData(DataRange As Excel.Range, dd As TmpDBType)
'....
End Sub

Компилятор выдает сообщение что методах класса аргуметы, описанные как User Defind Type использовать нельзя.

А идея была в следующем: когда из других модулей вызываю метод класса CreateTmpDBFromExcelData, то для параметра этого методп dd As TmpDBType вываливается список возможных значений (создались в момент инициализации класса).
Подскажите, плз, подобную схему вообще можно реализовать? Как?

http://www.sql.ru/forum/1154472/peredacha-v-metod-klassa-peremennoy-tipa-collection