CB.PasteData Example 1

This example copies the Crystal Ball data from cell C1 and pastes it into cell D1.

Range("C1").Select
CB.CopyData
Range("D1").Select
CB.PasteData