This example runs a simulation of 1000 trials, selects cell B7, sets the certainty range to 51%, and applies it only to the forecast in cell B7.
CB.Simulation 1000 Range("B7").Select CB.SetRange , , 51