CB.EnumDecVar Example

This example initializes all internal variables, then steps through all the decision variables, creates range objects from the returned string and puts 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.EnumDecvar
While S<>""
   Set R=Range(S)
   Range("B2").Offset(t).Value = s
   t = t + 1
   S=CB.EnumDecVar
Wend