Проблема Application.WorksheetFunction.Match

[nemoomen]

Уважаемые господа, прошу совета!
Использовал в коде оператор Application.WorksheetFunction.Match
Для примера:

Sub rrrrrrrr()
    On Error GoTo eee
    Range("C1").Value = Application.WorksheetFunction.Match(Range("A13").Value, Range("A1:A10").Value, 0): Exit Sub
eee:
    Range("C1").Value = "НЕТУ!"
End Sub

Сталкнулся с проблемой, что данный оператор не различает заглавные и строчные буквы.
"TO THE ORDER OF Litasco SA"
Для него тоже самое, что и
"TO THE ORDER OF LITASCO SA"
А для меня разница есть!

Посоветуйте, как обойти эту проблему!

[EducatedFool]

Sub test3()
    Set x = Range("a1:a10").Find([a13].Value, , , , , , True)
    If x Is Nothing Then [c1] = "НЕТУ!" Else [c1] = "Найдено в ячейке " & x.Address
End Sub