VBA-删除不是NON_T开头命名的sheet

Sub deleteNonCodeTable()
    Dim thsht As Object
    Dim strKey As String

    Application.DisplayAlerts = False
    For Each thsht In ThisWorkbook.Sheets
        With thsht
            Dim shname As String
            shname = Left(.Name, 5)
            If shname = "NON_T" Then
               
            Else
                .Delete
            End If
        End With
    Next thsht
    Application.DisplayAlerts = True
End Sub