If Range("AE" & i) = 1 And Range("AE" & i - 1) = 0 And (Range("AE" & i + 1) = 1) Or (Range("AE" & i + 1))) = 0 Then

If Range("AE" & i) = 1 And Range("AE" & i - 1) = 0 And (Range("AE" & i + 1) = 1) ) Then....
If Range("AE" & i) = 1 And Range("AE" & i - 1) = 0 And (Range("AE" & i + 1)) = 0 Then..

Sub Странадолжназнатьсвоихгероевнезачемпрятатьсязадругиминиками()
   Dim strStartAddr As String ' Хранит координаты первого найденного значения
   Dim rgResult As Range
  
   ' Поиск первого входжения искомого слова
   Set rgResult = Range("L1:P50").Find("vikttur", , xlValues)

   If Not rgResult Is Nothing Then
      ' Сохраним адрес найденной ячейки (чтобы контролировать _ зацикливание поиска)
      strStartAddr = rgResult.Address
   End If

   Do While Not rgResult Is Nothing
      ' Обработка результата поиска    
       rgResult.AddComment
       rgResult.Comment.Visible = True
       rgResult.Comment.Text Text:="idinah"

      ' Новый поиск
      Set rgResult = Range("L1:P50").FindNext(rgResult)

      If rgResult.Address = strStartAddr Then
         ' Поиск завершен
         Exit Do
      End If
   Loop
End Sub