CB.GetAssum Example 1

This example puts information for the first three Index constants for the assumption in cell B3 into cells F1 through F3.

In a macro, you can enter:

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