Продолжаю сражаться с if. Видимо, наступаю на те же грабли, но не могу уловить в чем.    
Задача: если значение похоже на один из параметров, то выводить "ххх", иначе "ууу"  
 
Код пишу такой:    
 
   Sub LikeSmth()  
     
     
   Dim rRange1 As Range     '  
   Dim rCell1 As Range  
   Dim sImpLoc As String        '  
 
   Dim lLastRow As Variant  
     
   ThisWorkbook.Worksheets("Лист1").Activate  
   lLastRow = ThisWorkbook.Worksheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row  
     
   Set rRange1 = Range(Cells(2, 2), Cells(lLastRow, 2))  
     
   For Each rCell1 In rRange1  
       sImpLoc = Cells(rCell1.Row, 1).Value  
 
       If sImpLoc Like "Nestle" Or sImpLoc Like "Hohland" Then  
               ThisWorkbook.Worksheets("Лист1").Cells(rCell1.Row, 2) = "импорт"  
           Else  
                ThisWorkbook.Worksheets("Лист1").Cells(rCell1.Row, 2) = "локал"  
 
 
       End If  
   Next rCell1  
End Sub  
 
 
 
Во вложении файл.    
Опять что-то путаю с if и not if, наверное...    
Подскажите, плз.