Sub Procurar()
    
    Application.EnableEvents = False
    
    Dim UltL As Long
    
    UltL = Range("N" & Rows.Count).End(xlUp).Row
    Dim LINHA As Long
    Dim achou As Boolean
    achou = False
    For LINHA = 10 To UltL
        If LCase(Range("N" & UltL).Value) = "vencido" Then
            achou = True
exit for
        End If
    Next LINHA
    
    If achou = True Then
        MsgBox ("Tem vencido")
        
    Else
        
        MsgBox ("Não tem vencido")
        
    End If
    
    Application.EnableEvents = True
    
    
End Sub

Funcionou !
Obrigado !