[Tasos]

Καλησπέρα!
Μια ακόμα προσέγγιση με VBA :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:C10")) Is Nothing Then
        If Not IsNumeric(Evaluate("=SUM((A1:C10)*ISNUMBER(A1:C10))")) Then
            MsgBox "Δεν επιτρέπεται η καταχώρηση κειμένου..."
            Application.Undo
        End If
    End If
End Sub

Δεν χρησιμοποιείται βρόχος και η εσφαλμένη καταχώρηση αναιρείται αυτόματα.

Καλή συνέχεια!

Τάσος