T4130_Check Duplicate Entry Non-Existing In TextBox Change

https://excel-egy.com/forum/t4130
---------------------------------

Private Sub TextBox1_Change()
    Dim ws As Worksheet, x As Long

    x = 0

    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Accueil" Then
            x = x + Application.CountIf(ws.Columns(1), TextBox1.Value)
        End If
    Next ws

    If x = 0 Or TextBox1.Value = "" Then
        Label19.Visible = True
    ElseIf x > 1 Then
        Label19.Visible = False
        MsgBox "Duplicate Entry", vbExclamation
    Else
        Label19.Visible = False
    End If
End Sub