Sheets.Count
04.01.2006 11:16:11
Ernst
Mache einen Fehler bei Count = 10
Bitte um Hilfe bzw. Erklärung was ich falsch mache.
mfg
Ernst Dunkel
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To Sheets.Count = 10 'Blätter 1 bis 10 einblenden
Sheets(i).Visible = True
Next i
End Sub