『フォームのチェックボックスを使って、シートの見出しの色を変えたい』（とらきち）
 
 フォームのチェックボックスを使って、チェックを入れたら、sheet2のタブの色が赤に変わり、
 チェックをはずすと、sheet2のタブの色が「色なし」に戻るには、どうしたら良いでしょうか？？

 コントロールツールボックスのチェックボックスではなくて、
 フォームのチェックボックスを使用したいです。
 
 よろしくお願いします。
----
 たとえば、リンクするセルをA1セルにしておくなら
 チェックの状態を確認するコード
Sub 確認()
    With Sheets("Sheet2")
        .Tab.ColorIndex = IIf(Range("A1"), 3, -4142)
    End With
End Sub

 チェックボックスのクリックで色を切り換えるなら
 リンクするセルの設定は不要で
Sub タブ色()
    With Sheets("Sheet2")
        .Tab.ColorIndex = IIf(.Tab.ColorIndex = 3, -4142, 3)
    End With
End Sub

 いずれも、チェックボックスを右クリック→マクロの登録
 で登録して下さい。

 クリックで色を切り換える場合、チェックの状態と反対にしたい場合は
 一度、手作業でタブ色を逆にして下さい。

 (HANA)
----
ありがとうございました。