Delete tabs whose names contain the same character

Question

I get an extract from SAP where for each tab there is a sister tab with the same name followed by +. An example is PL1516and PL1516+. The last tab has nothing, and I just want to delete them. I tried this macro, but it does not work.

Option Explicit

Sub deleteSheets()
    Dim Sht As Worksheet
    For Each Sht In ActiveWorkbook.Worksheets
        If Sht.Name = "*+*" Then
            Sht.Delete
        End If
    Next Sht
End Sub

Answer 1

Use the Like method to match characters.

Option Explicit

Sub deleteSheets()
    Dim Sht As Worksheet
    For Each Sht In ActiveWorkbook.Worksheets
        If Sht.Name Like "*+*" Then
            Sht.Delete
        End If
    Next Sht
End Sub

Answer 2

Try changing this line If Sht.Name = "*+*" Thento If InStr(Sht.Name, "+") > 0 Then. It should work.