Private Sub Worksheet_Change(ByVal Target As Range)

If Me.[T1] Then Exit Sub
  If Not Application.Intersect(Target, Range("YAAS")) Is Nothing Then

      Application.EnableEvents = False
      Application.Undo
      Application.EnableEvents = True
  MsgBox "            /         ..  "
 End If
End Sub