Aantal sheets in een workbook

[linkav]

Ik heb een workbook met een onbeperkt aantal sheets. Ik weet niet hoeveel sheets het zijn en welke naam de sheets hebben.
Hoe kan ik dit te weten komen in vba?

 

[E v R]

bijv:

Sub tst()
Dim sht As Worksheet, lijst As String
    For Each sht In ThisWorkbook.Sheets
        lijst = lijst & sht.Name & vbLf
    Next sht
        lijst = lijst & "Totaal " & ThisWorkbook.Sheets.Count & " sheets"
MsgBox lijst
End Sub

 

[linkav]

Super bedankt!