[kapetang]

Τάσο, ο κώδικας στο φύλλο «ΕΙΣΑΓΩΓΗ ΠΟΛΛΩΝ», που ελέγχει το ΑΦΜ, παρουσιάζει κάποια ελαττώματα (πχ μπορούμε να επικολλήσουμε πολλά ΑΦΜ χωρίς έλεγχο).

Προτείνω να τον αλλάξεις με τον:

Const strAFM As String = "k3:k1000" ' περιοχή αναγραφής ΑΦΜ

Private Sub Worksheet_Change(ByVal Target As Range)
    'Έλεγχος ΑΦΜ
    
    Dim rng As Range, AFM As String, rngTomi As Range
    Set rng = Range(strAFM)
    Set rngTomi = Intersect(Target, rng)
    If rngTomi Is Nothing Then Exit Sub
    
    If rngTomi.Count <> 1 Then
        rngTomi.ClearContents
        Exit Sub
    End If
    If Trim(Target.Value) = "" Then Exit Sub
    
    AFM = Right("000000000" & Target.Value, 9)
   
    If isAFM(AFM) = False Then
        MsgBox "Άκυρο ΑΦΜ"
        Target.Activate
        Exit Sub
    End If
End Sub