Hallo Kornelia, ich habe das gerade durchgetestet. "Name" geht als Variable wohl nicht - oder? Umgewandelt in oName und dann oName = "CheckBox" & CStr(i) msgbox oName ergibt alle Werte. Für Dich also
i = 1 WHILE i < 34 oName = "CheckBox" & CStr(i) oOption = oForm.GetByName (oName) Ctrl = Dlg.GetControl (oOption) Ctrl.Model.Enabled = True i = i + 1 WEND Das müsste dann funktionieren. Gruß Robert --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]