wie kann ich in einer Arbeitsmappe all denjenigen Tabellen, deren Tabellenbezeichnung aus einer Zahl besteht, den Status 'veryhidden' zuweisen.
Für eure Unterstützung im Voraus besten Dank.
mfg
Fritz
Sub verstecken()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If IsNumeric(ws.Name) Then ws.Visible = xlVeryHidden
Next ws
End Sub
Gruß