Vergelijken van de namen van tabbladen

[BigG2016]

Ellow

Ik ben op zoek naar de vba code om de namen van alle tabbladen uit te lezen en te vergelijken.
Ik heb code geschreven die steeds tabbladen gaat aanmaken met bepaalde naam.

VB iedere keer er een nieuw MDO rapport is aangemaakt, zal het tabblad de naam MDO dd-mm-jjjj hebben,
Zo zijn er ook namen met IFB of OG of iets anders.
De bedoeling is dat ik een overzicht heb van het aantal sheets met MDO in de naam, het aantal IFB, en zo verder.

kan iemand hierbij helpen?

Alvast bedankt

Big G

 

[gast0660]

Ik heb een sheet GVB, staat voor Geen Voorbeeld Bestand

 

[edmoor]

Voorbeeldje van hoe het kan:

Sub TelSheets()
    Dim sh As Object
    Dim MBO As Integer
    Dim IFB As Integer
    Dim OG As Integer
    
    For Each sh In ThisWorkbook.Sheets
        If Left(sh.Name, 3) = "MBO" Then MBO = MBO + 1
        If Left(sh.Name, 3) = "IFB" Then IFB = IFB + 1
        If Left(sh.Name, 2) = "OG" Then OG = OG + 1
    Next sh
    
    MsgBox "Aantallen:" & vbCrLf & _
            "MBO: " & vbTab & MBO & vbCrLf & _
            "IFB: " & vbTab & IFB & vbCrLf & _
            "OG: " & vbTab & OG
End Sub