This example selects cell B3 and the range D17 to G22. CB.DefineAssumND interprets the data located in this second range of cells using the format described in the discussion of custom distributions in the Oracle Crystal Ball User's Guide.
Union(Range("B3"), Range("D17:G22")).Select
CB.DefineAssumND cbDfaCustom, False,,,,,"Sales"