This example runs a simulation of 5000 trials and then opens whatever charts are defined for cells C9, C10, C11, and C12.
CB.Simulation 5000 Range("C9:C12").Select CB.OpenSelection