My error handler works just once and I don't understand why

Question

I'm trying to translate some Excel file with help of named ranges. I need to know which text is not defined yet to then add it to the names data base. For that purpose I use a VLOOKUP to compare the actual value of the cell with the values in the data base. I also don't need to translate numbers, formulas or anything that is not a string.

The only way I found to manage to add the undefined names to the data base was using an error handler for when the VLOOKUP encounters an error. The problem is this error handler works only once and I don't understand why. I've read you have to use Resume to do it and I have used it, but it doesn't work.

Thanks in advance for your help and sorry for the grammar mistakes.

Here's my code.

Sub translation()
Dim cell, cell1, cell2 As Range, search_value As String, i As Integer
i = 3
For Each cell In Hoja65.Range("D3:D10") 'Range to look up for words.
        If IsEmpty(cell) = False And IsError(cell) = False And IsNumeric(cell) = False Then ' Enter code if the cell is not empty and is not an error
                ' Check if read value is equal to any exception listed in Hoja65.Range("B3:E20")
                For Each cell1 In Hoja65.Range("E3:E10")
                        ' Check if read value is a formula beginning with "=", "+" or "-" or contains an hyperlink.
                        If cell1 = cell Or InStr(1, cell.FormulaLocal, "=", vbTextCompare) = 1 Or InStr(1, cell.FormulaLocal, "+", vbTextCompare) = 1 Or InStr(1, cell.FormulaLocal, "-", vbTextCompare) = 1 Or InStr(1, cell.Value, "http", vbTextCompare) <> 0 Then
                                GoTo continue
                        End If
                Next cell1
                ' If read value is not equal to exception
                On Error GoTo handler
                search_value = Application.WorksheetFunction.VLookup(cell.Value, Hoja64.Range("F9:G550"), 2, False) ' Range where the names are defined.
                cell.Value = "=" & search_value 'Change read to defined name.
        End If
continue:
Next cell
MsgBox "Execution finished"
Exit Sub ' VERY IMPORTANT: This line must ALWAYS precede any error handler in order to avoid an infinite loop.
handler: ' Executes only if VLOOKUP doesn't find a match
        With Hoja65
                For Each cell2 In .Range(.Cells(3, 3), .Cells(i, 3))
                If cell2 = cell Then
                        GoTo continue
                Else
                        .Cells(i, 2) = cell.Address ' Save address of unsaved name.
                        .Cells(i, 3) = cell.Value ' Save value of unsaved name.
                End If
                i = i + 1
                Next cell2
        End With
        Resume continue
'ActiveSheet.Shapes.Range(Array("Rounded Rectangle 2")).Select
'Selection.Formula = "=title270"
End Sub

Answer 1

            If cell2 = cell Then
                    GoTo continue

This is why. You don't GoTo-jump in/out of an error-handling subroutine; GoTo doesn't "reset" the error state, so you're re-entering the "happy path" with Err.Number <> 0, i.e. you're still in an error state.

Replace the GoTo with Resume and you should be back on track.

            If cell2 = cell Then
                    Resume continue