1: 2: 3: 4: 5: 6:
Case LCase („Jane“) Für jedes WS in ThisWorkbook.Worksheets Wenn LCase (WS. Name) = LCase („jane_sheet“) dann WS. Sichtbar = xlSheetVisible Sonst WS. Sichtbar = xlSheetVeryHidden Beenden wenn Zunächst