How to find multiple strings one string

[ThrottleWorks]

Hi,

I need to find multiple strings in one string. for example, I need to find 'Yamaha' and 'best' in one string. If I get the result I need to process further.

For example, cell A1 value = "Yamaha is the best bike in world". In this string I am getting both Yamaha and best so I should process further. How do I do this.

Can anyone please help me in this.

 

[YasserKhalil]

Hello Throttle
May be

Sub Test()
    Dim str As String
   
    str = Range("A1").Value
   
    If InStr(str, "Yamaha") > 0 And InStr(str, "best") > 0 Then
        MsgBox "Found", vbInformation
    Else
        MsgBox "Not Found", vbExclamation
    End If
End Sub

 

[ThrottleWorks]

Hi @YasserKhalil , thanks a lot. It is working great. Thanks a lot.

Have a nice day ahead.

 

[YasserKhalil]

You're welcome. Glad I can offer some help
Regards