I'm comparing two strings.
Car tire type hypersonic 3 extra = wsFrom.Cells(j, KolomFrom)
Car tire ultra advanced hypersonic 3 type extra = wsTo.Cells(i, KolomTo)

Is it possible to find multiple predefined values in a string.

So If wsFrom.Cells(j, KolomFrom) contains "tire" & "extra" And wsTo.Cells(i, KolomTo) also contain "tire" & "extra" Then... etc.

This is how it doesn't work :

           
A = "tire" & "extra"
            
            If InStr(wsFrom.Cells(j, KolomFrom), A) And InStr(wsTo.Cells(i, KolomTo), A) Then
               wsTo.Cells(i, KolomPaste).Value2 = wsFrom.Cells(j, KolomCopy).Value2
Hope it's clear enough.

Thanks!