[Spirosgr]

Πέρασε στο Φύλλο που είναι το Ζητούμενο κελί Ν44 τον Κώδικα

Private Sub worksheet_calculate()
If Range("N44") <> 1000 Then
MsgBox "ΠΡΟΣΟΧΗ! Αυτή η Τιμή ΔΕΝ είναι επιτρεπτή", vbExclamation + vbSystemModal + vbInformation, "ms-office.gr"
End If

End Sub

Στο παράδειγμα που ακολουθεί το κελί το έχω κάνει Κ4 για να φαίνεται καλύτερα στο φύλλο

Το κελί Κ4 "είναι τύπος και "παίρνει" από τα Α1…….F1
Αυτά μπορεί να περιέχουν Τύπους , Σταθερές ή ότι άλλο
Τα κίτρινα κελιά καθώς και το Ζητούμενο (Κ4) περιέχουν τύπους και είναι κλειδωμένα
Αν δεν πάρει τιμή 1000 εμφανίζει Msgbox με ειδοποίηση λάθους
Το Msgbox θα εμφανιστεί ακόμη κι αν είμαστε σε άλλο Φύλλο και οι Υπολογισμοί μας επηρεάζουν το κελί Κ4