Excel VBA Macro: Delete All Sheets that Contain a Certain Text (String) Value

Excel VBA Macro: Delete All Sheets that Contain a Certain Text (String) Value
💥Subscribe: / @greggowaffles
Code:
Sub delete_sheets_containing_value()
Dim i As Integer
Dim tab_count As Integer
Dim my_string As String
tab_count = Sheets.Count
i = 1
Do While i ＜= tab_count
my_string = Sheets(i).Cells(1, 1)
If InStr(my_string, "Turtle Soup") ＞ 0 And tab_count ＞ 1 Then
Application.DisplayAlerts = False
Sheets(i).Delete
Application.DisplayAlerts = True
tab_count = Sheets.Count
End If
i = i + 1
Loop
#excelmacro #excelvba
End Sub

[@odijin]

Bro, this video saved my whole life!!! I can't even thank you enough. Super appreciate this tutorial and your other videos as well. Been studying your catalog of videos and learning massively. The best part is how you describe each line of code and what they actually do, and also how you explain the complex parts, so anybody can follow the coding logic. That helps a lot. This is some straight up on point Excel VBA skills you're showing us here, no cap! Thank you again Greg. Liked and subscribed. Looking forward to your next videos!

[@greggowaffles]

Thank you so much for the kind words!! It means a lot!! Happy to help!!

[@justinstone1401]

I used the exact same code you provided in the video. The problem I am having is that when I run the macro the first time it will only delete 5 tabs, when I run it a second time it will delete 2 tabs and I have to keep running it until it’s suppose to delete all the tabs to work properly. Would anyone know why this is happening to me?

[@ayrarosli9114]

Hi there! how about if i want to delete the rows that contains "turtle soup instead" ? how would the program differ?

[@alexrosen8762]

Wow! You deliver all the time man. I work as a business controller and situations like this tutorial pops up every now and then so very useful tutorial

[@greggowaffles]

Appreciate the continued support!!