Excelマクロ-シートを表示/非表示にするためのチェックボックスを使用する

こんにちは、

チェックボックスを使用して、シートを開閉し、それらがチェックされていない/解除されていません.下記の式は、私がそれを使っている関数にとって完全に機能します:

sub checkbox70_click()
シート(「インデックス」)の場合.図形(「チェックボックス70」).ControlFormat.Value= Xlon
シート( "33.00 ATO債務")Visible= XLSheetVisible


シート( "33.00 ATO債務")Visible= xlsheethidded

の場合は終了 終了SUB

チェックボックスがチェックされたときに、2シートが一度開くように機能を使いたいです.これを行うには上記のコードに何を追加しますか?私はすでに「シート」のような追加シートを追加してみました( "33.00 ATO責任"&"33.01レンタル
費用がかかりませんでした.私はまた、次のように他の行全体を追加しました:

シート( "33.00 ATO債務")Visible= XLSheetVisible

シート(「33.01賃貸料」).Visible= XLSheetVisible

この問題に特有のものを見つけることができないので、どんなアイデアも大幅に感謝します.