特定のシートが削除されたときにラベルを非表示にしたい

質問

現在Excel VBAでの開発を行っている者です。
そこで、特定のシートを削除したときにラベルを非表示したいのですが、どうしたらいいかわかりません。

どなたかご教授していただけないでしょうか？？

回答No.3

end-u

特定のシートを削除したタイミングを捉えたいという事でしょうか？
シート削除イベントそのものは無いですから、代替的なものを仕込む事になります。
例えばThisWorkbookモジュールのSheetActivateイベントが発生した時に『特定のシート』の存在チェックをするなど。
または

'ThisWorkbookモジュール
Const chk = "特定のシート"

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
　　If Sh.Name = chk Then
　　　　Application.OnTime Now, Me.CodeName & ".shtchk"
　　End If
End Sub

Private Sub shtchk()
　　Dim ws As Worksheet

　　On Error Resume Next
　　Set ws = Sheets(chk)
　　On Error GoTo 0
　　If ws Is Nothing Then
　　　　MsgBox "削除"
　　Else
　　　　Set ws = Nothing
　　End If
End Sub
こんなのでもいいかもしれません。
#SheetDeactivateが発生しないVBAコードでの削除には対応していません &
#シート名変更の場合を考慮していませんが。