VBA to delete tabs based on partial text in a worksheet

[borkybork]

Hi there!

I have this code, but it only works for the 2nd and 3rd conditions. How do I add an “OR” condition to it that searches the entire workbook for a partial text and delete the worksheet if found? For example, merged cell A1:C1 = “Your one stop for Excel tips & solutions”, but I only need to find “tips & solutions” and delete any sheet that contains this phrase. Thanks in advance!

So to summarize, the goal is to delete sheets if A5 = 100 AND A6 = 1 OR A1 = “* tips & solutions” but code can’t find partial text with the wildcard symbol.

Sub Delete_Worksheets

Dim ws As Worksheet
Dim i As integer

Application.DisplayAlerts = False

For each ws in ActiveWorkbook.Worksheets

If ws.range(“A1”).Value = “* tips & solutions” Or ws.range(“A5”).Value = 100 And ws.range(“A6”) = 1 Then

On Error Resume Next
ws.delete

On Error GoTo 0
End If

Next

Application.DisplayAlerts = True
End Sub

 

[Michael M]

Don't have Excel ATM, so untested, but try

If Instr(ws.range(“A1”), “ tips & solutions”) Or ws.range(“A5”).Value = 100 And ws.range(“A6”) = 1 Then

 

[borkybork]

Don't have Excel ATM, so untested, but try

If Instr(ws.range(“A1”), “ tips & solutions”) Or ws.range(“A5”).Value = 100 And ws.range(“A6”) = 1 Then

Thanks for responding!! This worked great!!

 

[Michael M]

Glad it helped...