Adding a Control Caption

I am making a userform that will have a varied amount of checkboxes dependent on how many worksheets there are. I 've programmed it so that for each worksheet, userform.controls.add a checkbox. Now, my problem with this is that (at least in VBA6) .caption is not a property of a Control. So when I set the .caption of each checkbox, I get an automation error. Is there a way to set the caption on a Control that is created by VBA? Otherwise, I'll just create a bunch of checkboxes and just make them visible or not. I'd rather not do this, but I could.

Nick.

Here is my current code. (Functionality is not complete, but you get the gist). I've put faces at the important lines


Dim getBk As Workbook, getStr As String, setBk As Workbook, boxes(1 To 255) As Control, ws As Worksheet
getStr = Application.GetOpenFilename
Application.ScreenUpdating = False
Set getBk = Workbooks.Open(getStr)
For Each ws In getBk.Sheets
sheetGetter.Height = sheetGetter.Height + 18
Set boxes(ws.Index) = sheetGetter.Controls.Add("Forms.CheckBox.1", "box" + CStr(ws.Index), True)
boxes(ws.Index).Top = 50 + (ws.Index - 1) * 18
boxes(ws.Index).Caption = ws.Name
Next
getBk.Close (False)

The "cool" face is where I define the control itself. The "mad" face shows what's not working. I'm going to look into the listbox and see if that makes more sense to my purposes. I have a feeling that I might run into a similar problem, though. Thanks.

Nick.

Nevermind. I'm doing the listBox. It makes much more sense. Thanks for the tip!