VBA to delete sheets that don't end in a certain criteria

[matratus34]

Hi all,
Been trying with no luck to write a bit of code to delete all sheet in m workbook that don't end in the word "Trust".
I have a report with 50 tabs with 15 of them named xxxx_Trust.
These 15 are the only ones I need to keep in my final version.
Any help is greatly appreciated.

 

[Fluff]

How about

Sub delShts()
   Dim ws As Worksheet
   Application.DisplayAlerts = False
   For Each ws In Worksheets
      If Not LCase(ws.name) Like "*trust" Then ws.Delete
   Next ws
   Application.DisplayAlerts = True
End Sub

 

[matratus34]

Brilliant - Thank you

 

[Fluff]

Glad to help & thanks for the feedback