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