Solved: searching a word in lower and uppercase

[Aflatoon]

One could also do it without looping:

   Dim rngData1 As Range, rngData2 As Range
   Set rngData1 = Range("A5:G84")
   Set rngData2 = Range("A205:G284")
   rngdata1.value = Evaluate("INDEX(IF(" & rngData1.Address & "=""RES"",IF(ISNUMBER(" & rngData2.Address & _
            ")," & rngData1.Address & "," & rngData2.Address & ")," & rngData2.Address & "), 0, 0)")