コマンドボタンがCmdCh0〜CmdCh23まであるならFor c = 0 To 23 If Check(c).Value = 1 Then Me.Controls("CmdCh" & c).Value = True End IfNext c