Помогите исправить ошибку:run-time error 424

[Kigali]

Добрый день,

с ура пытаюсь иправить ошибку, но так и не получается, может кто подскажет в чем может быть проблема?

iText$ = InputBox(Reference, "Type METSA reference") 'METSA ref

Dim iCell As Range
Set iCell = wsUnique.UsedRange.Find(What:=iText $, LookIn:=xlValues, LookAt:=xlWhole)
If Not iCell Is Nothing Then

В выделенной строке показывает ошибку 424 Object required, что можно сделать что бы от этого избавиться?

[Hugo121]

Что такое wsUnique?
Работает:

Sub tt()
    Dim iCell As Range

    Reference = "rrr"
    Set wsUnique = ThisWorkbook.Sheets(1)
    
    iText$ = InputBox(Reference, "Type METSA reference")    'METSA ref

    Set iCell = wsUnique.UsedRange.Find(What:=iText$, LookIn:=xlValues, LookAt:=xlWhole)
    If Not iCell Is Nothing Then MsgBox "YES!!!"
End Sub

[Kigali]

Спасибо большое, отредактировала код на подобии примера, теперь все работает!