Hallo,
bin am verzweifeln, wo liegt der Fehler?
Die Namen sind alle richtig geschrieben.
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets(Array("Jan-06", "Febr-06", "März-06", "Apr-06", "Mai-06", "Juni-06", "Juli-06", "Aug-06", "Sept-06", "Okt-06", "Nov-06", "Dez-06")).Visible = False
Worksheets("Jan-05").Visible = True
Worksheets("Febr-05").Visible = True
Worksheets("März-05").Visible = True
Worksheets("Apr-05").Visible = True
Worksheets("Mai-05").Visible = True
Worksheets("Juni-05").Visible = True
Worksheets("Juli-05").Visible = True
Worksheets("Aug-05").Visible = True
Worksheets("Sept-05").Visible = True
Worksheets("Okt-05").Visible = True
Worksheets("Nov-05").Visible = True
Worksheets("Dez-05").Visible = True
Worksheets("2005").Visible = True

Sheets("Haupt-Blatt").Activate
Application.ScreenUpdating = True
Mfg. Peter