CB.GetFore Example

This example puts information for Index constants 1 through 5 for the forecast in cell B3 into cells F1 through F5.

In a macro, you can enter:

For i = 1 To 5
   CB.CheckData
   Worksheets("sheet3").Range("F1").Offset(i).Value = _
      CB.GetFore(Worksheets("sheet1").Range("B3"), i)
Next i

Notice that a message appears to indicate the third constant is obsolete and cell F3 is left blank.