Tab ausblenden, wenn Name in Range aufgeführt
Peter
Mit nachfolgendem Code blende ich Tabellen aus, sofern im entsprechenden Tabellenblatt in Zelle H5 "fehlt" steht.
Nun habe ich in einer der Tabellen des Workbooks einen Spaltenbereich mit "VBA_TabAusblenden" benannt und bestimmte Tabellennamen eingetragen, die ebenfalls ausgeblendet werden sollen.
Wie binde ich den Range mit den Tabellennamen in den nachstehenden Code ein, so dass diese ebenfalls ausgeblendet werden?
Danke für eine Antwort.
Gruss, Peter
Sub TabAusblenden()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
If InStr(WS.Range("H5").Value, "fehlt") Then
Worksheets(WS.Name).Visible = False
Else
Worksheets(WS.Name).Visible = True
End If
Next WS
End Sub
Anzeige