『チェックボタンのチェックをクリアーしたい』（Noppy）
SHEET上にチェックボタンを10個置いていますが、このチェックボタン自体にマクロ登録しておらず、便宜上使用しております。
これをボタンにマクロ登録しボタンを押すことによってチェックボタンのレ点をすべてクリアーしたいのですが。宜しくお願いします。
----
 ツールバー→フォームのチェックボックスは↓
 で一括OFFできます。

 コントロールツールボックスのチェックボックス
 は↓ではOFFにできません。

 方法が分かりましたら再度アップします。

 Sub chkoff()
  Sheet1.CheckBoxes.Value = xlOff
 End Sub
 (MARBIN)
----
 コントロールツールボックスのチェックボックスの
 方は↓でいけました。

 Sub chkoff2()
  Dim myobj As OLEObject
   For Each myobj In ActiveSheet.OLEObjects
       If TypeName(myobj.Object) = "CheckBox" Then _
          myobj.Object.Value = False
   Next
 End Sub
 (MARBIN)
----
問題なく作動いたしました。ありがとうございます。