Поиск текста в строке, затем поиск текста в этом столбце

Question

Я пытаюсь найти ячейку в заданной строке с определенной строкой («Конечная отметка», затем выполнить поиск в ячейках под этим текстом. Если эта ячейка содержит определенный фрагмент текста («Ошибка»), я затеммне нужно всплывающее окно с сообщением.

Это для рабочей книги, которая собирает данные о помеченных назначениях. Я пробовал приведенный ниже код, но он не работает.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim FinalMark As Range
    Set FinalMark = Rows(5).Find(what:="Final Mark", LookIn:=xlValues, lookat:=xlWhole)
    If Not FinalMark Is Nothing Then
    If Not FinalMark.Column.Find(what:="Fail", LookIn:=xlValues, lookat:=xlWhole, MatchCase:=True) Is Nothing Then
        MsgBox "Input reason for fail in Further Notes.", vbInformation
    End If
    End If
End Sub

Я былнадеясь, что он будет искать в столбце, где я нашел текст "Final Mark", но это не так.

Answer 1

Изменение

If Not FinalMark.Column

до

If Not Columns(FinalMark.Column)