CB.CheckDataND Example 1

This example runs a simulation of 500 trials, initializes all the internal variables for the following enumeration, and then enumerates all the forecasts, opening each forecast chart.

Dim s As String
Dim r As Range
CB.Simulation 500
CB.CheckDataND
s = CB.EnumFore
While s <> ""
   Set r = Range(s)
   CB.OpenFore
   s = CB.EnumFore
   t = t + 1
Wend