[Tasos]

Καλησπέρα!

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

Private Sub Worksheet_Change(ByVal Target As Range)
' If Target.CountLarge = 1 Then ' Για φύλλα με 1048576 γραμμές
    If Target.Count = 1 Then
        If Target.Address = "$J$26" Then
            ' Application.Undo    ' Αναίρεση της αλλαγής αν χρειαστεί
            MsgBox " χχχχχχχχχχχχχ", vbInformation, "Stella Hellas info"
        End If
    End If
End Sub

Ίσως αντιμετωπίσεις πρόβλημα αν το συγκεκριμένο κελί ($J$26) ανήκει σε κάποια συγχώνευση κελιών.

Τάσος