Count

Sub Tabellenblaetter_zählen()
Dim i As Integer
For i = 1 To Worksheets.Count
Next i                                '?
MsgBox ("Anzahl Tabellenblätter:",    )    '?
End Sub