Как правильно установить диапазон предшествующего кода для удаления строк в столбце таблицы

Question

Когда я пытаюсь настроить некоторый код для удаления количества строк в таблице на основе определенного слова / числа в столбце таблицы, я получаю сообщение об ошибке

Run-time error '1004' Method 'Range' of object'_Global' failed.

Я использовалКод почти идентичен следующему коду в другой книге без каких-либо проблем.Я изменил номер листа, имя таблицы, имя столбца и имя текстового поля, чтобы соответствовать новой информации о книге.

Dim intLastRow As Integer
Dim strDelete As String
Dim rngFindID As Range
Dim intAnswer As Integer

Sheet1.Activate

Set rngFindID = Range("tblMaster[Job #]").Find(txtJobid.Value, LookIn:=LookIn = xlValues, lookat:=xlWhole)

If rngFindID Is Nothing Then
    MsgBox "Job # doesn't exist in records."
Else
    intAnswer = MsgBox("Job # found. Delete?", vbYesNo + vbQuestion, "Delete Record")
    If intAnswer = yes Then
        strDelete = txtJobid.Value
        intLastRow = Cells(Rows.Count, 1).End(xlUp).Row

        For i = intLastRow To 1 Step -1
            If Cells(i, 1) = strDelete Then Rows(i & ":" & i).EntireRow.Delete
        Next i
    Else
        'do nothing
    End If
End If

Я хочу, чтобы этот код удалял определенные строки на основе значения в ячейках вРабота № колонка.Строка

Set rngFindID = Range("tblMaster[Job #]").Find(txtJobid.Value, LookIn:=LookIn = xlValues, lookat:=xlWhole)

выделена с ранее упомянутым кодом ошибки.

Это мой первый пост на этом форуме.Пожалуйста, дайте мне знать, если потребуется дополнительная информация.