[kapetang]

Καλημέρα

Γιώργο, δοκίμασε τον κώδικα:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngIn As Range, rngCheck As Range
    
    'Θα πρέπεινα οριστούν οι πραγματικές περιοχές
    Set rngIn = Range("C2:G20")
    Set rngCheck = Range("A1")
    
    If Not Application.Intersect(Target, rngIn) Is Nothing Then
        If IsNumeric(Target) And _
           (Not IsNumeric(rngCheck) Or Len(rngCheck) = 0) Then
            MsgBox "Πληκτρολογήσατε αριθμητική τιμή, ενώ το 'Α1' δεν περιέχει αριθμό."
        End If
    End If
End Sub

Φιλικά/Γιώργος