Jedes zweite Arbeitsblatt auswählen

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

240004    234304

Problem: Jedes zweite Arbeitsblatt soll ausgewählt werden.

StandardModule: Modul1

Sub SelectWks()
   Dim iWks As Integer
   For iWks = ActiveSheet.Index To Worksheets.Count Step 2
      Worksheets(iWks).Select False
   Next iWks
End Sub