CB.EnumAssum Example

This example initializes all internal variables, then steps through all the assumptions, creating range objects from the returned string and putting their absolute cell references in column B of a worksheet.

CB.CheckData
Dim S As String
Dim R As Range
Dim t As Integer
S=CB.EnumAssum
While S<>""
   Set R=Range(S)
   Range("B2").Offset(t).Value = s
   t = t + 1
   S=CB.EnumAssum
Wend