Функция VBA против Sub

Question

Я пытаюсь найти повторную строку в отчете, используя код ниже.Я хочу, чтобы это была функция, которую я могу вызывать из ячейки, но когда я изменяю «sub» на «function», моя переменная Waldo меняется с типа Range на Nothing.

 Set Waldo = wb.Sheets(Sheet_Name).Cells.Find(What:=Find_This, After:=Sheets(Sheet_Name).Range("A1"), LookAt _
                :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
                False, SearchFormat:=False)

'skip the first found instance and go to the specified line

    If Line_Num > 0 Then
        While Line_Num > 0
            Set Waldo = wb.Sheets(Sheet_Name).Cells.FindNext(After:=Waldo)
            str = Waldo.Value
            MsgBox str
            Line_Num = Line_Num - 1
        Wend
    End If

stringArray() = Split(str, " ", -1)

Почему это происходит иКак я могу это исправить?Спасибо всем заранее.