VBA Macro Select Worksheet If Name Contains String

[Poisson]

Complete macro noob and not sure what to do. I have borrowed a macro from this forum to select a tab based on the worksheet name

Sub Macro1()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    If ws.Name Like "* Apple" Then
        ws.Select
        Exit For
    End If
Next ws
End Sub

It is able to search for the Apple string.

However, how do I modify this so that it allows for "Pear" as well? I tried the following:

If ws.Name Like "* Apple" Or "* Pear" Then

and ended up with a debug error (runtime 13 - type mismatch)

Is there a way to stick the "Apple" or "Pear" search together? I just want to select the worksheet if it contains either string.

 

[sericom]

If ws.Name Like "* Apple" Or ws.Name Like "* Pear" Then

 

[Nothnless]

Sub Macro1()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    If ws.Name Like "* Apple" Or ws.Name Like "* Pear" Then
        ws.Select
        Exit For
    End If
Next ws

End Sub

 

[Dossfm0q]

Good Day

what about this, Feedback is highly appreciated with ?

Sub Macro1()
Dim WB As Workbook: Set WB = ThisWorkbook
Dim WS As Worksheet
N = WB.Worksheets.Count

Dim Names As String
 
 For Each WS In WB.Worksheets
    If WS.Name Like "*Apple*" Or WS.Name Like "*Pear*" Then
 
 
      Names = Names & IIf(Names <> "", ",", "") & WS.Name
      
    End If
Next WS
Worksheets(Split(Names, ",")).Select


End Sub

Complete macro noob and not sure what to do. I have borrowed a macro from this forum to select a tab based on the worksheet name

Sub Macro1()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    If ws.Name Like "* Apple" Then
        ws.Select
        Exit For
    End If
Next ws
End Sub

It is able to search for the Apple string.

However, how do I modify this so that it allows for "Pear" as well? I tried the following:

If ws.Name Like "* Apple" Or "* Pear" Then

and ended up with a debug error (runtime 13 - type mismatch)

Is there a way to stick the "Apple" or "Pear" search together? I just want to select the worksheet if it contains either string.

 

[Dossfm0q]

Stick together

 

[Poisson]

Fantastic - Thanks all for such quick replies!!!

I am testing it out now and will report back

 

[Poisson]

All solutions worked! I went with Dossfm0q's solution but everyone's angle worked.

Thanks all!

 

[Dossfm0q]

Thank you too much for your feedback, and I am glad to help you and your rate that support me