möchte gern alle Tabellenblätter ausblenden ausser das eine, die werden dann über ein Macro angesteuert. Habe in der Arbeitsmappe Option Explicit stehen und als 2
Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range)
Dim tRow As Long, n As Integer
Dim arrSheets As Variant
Mfg Peter