できました。一応、ご参考までにスクリプト例を添付いたします。 代入方法 A,B,C,D,E,F というキーワードで、A,C,D を ON にするスクリプト Dim Test(6) As String '=== 配列を宣言 Test$(1) = "A" Test$(2) = "C" Test$(3) = "D" doc.MchkBtn = Test$