Hi, looks like a very nice example.

Ive added some code to your AddCheckBox procedure to add the caption. I find OLEObjects.Add is easier to use than Shapes.AddOLEObject so I have used that instead.