1. Tel visueel de tabbladen onder aan het werkmapvenster. Elk tabblad vertegenwoordigt een werkblad.

2. Klik op het tabblad "Bestand" in het lint en klik vervolgens op "Info". In de sectie "Werkmapstatistieken" wordt het aantal werkbladen in de werkmap weergegeven.

3. Gebruik de volgende VBA-code:

```

SubtellingWerkbladen()

MsgBox "Er zijn " &ActiveWorkbook.Sheets.Count &" werkbladen in deze werkmap."

Einde sub

```

Om de VBA-code uit te voeren, drukt u op Alt + F11 om de Visual Basic Editor (VBE) te openen. Voeg vervolgens een nieuwe module in door op het tabblad "Invoegen" te klikken en vervolgens op "Module" te klikken. Plak de code in de module en druk vervolgens op F5 om de code uit te voeren.