VBA excel 2010: checken of tabblad met bepaalde naam bestaat

[ErikdV]

Ik heb een Excel werkblad met de volgende tabbladen:
- tabblad "TOTAAL"
- een aantal genummerde tabbladen ("1", "2" etc.)

Als er een genummerd tabblad wordt verwijderd heeft dit konsekwenties voor de gegevens in het tabblad "TOTAAL"
Ik doe dit nu door voor elk tabblad de naam van het tabblad met het volgnummer te vergelijken (volgnummer = naam -1)
Kan het niet simpeler door te kijken of het tabblad bestaat of niet: Iets in de trant van IF EXIST(tabblad "naam")
Ik kan tot nu toe hierover niets vinden.

 

[Cobbe]

Met deze functie is dat te doen:

Function SheetExists(shtName As String, Optional wb As Workbook) As Boolean
    Dim sht As Worksheet
     If wb Is Nothing Then Set wb = ThisWorkbook
     On Error Resume Next
     Set sht = wb.Sheets(shtName)
     On Error GoTo 0
     SheetExists = Not sht Is Nothing
 End Function

 

[spaarie]

Hier kom je wel verder mee denk ik...

Sub Spaarie()
    For Each sh In Sheets
        If sh.Name Like "test" Then
            MsgBox "Blad bestaat"
        Else
            MsgBox "Blad bestaat niet"
        End If
    Next
End Sub

 

[ErikdV]

Eigenlijk heel simpel. Ik had nog niet aan "Like"gedacht.
Het werkt prima.