petrruso, Господа Спасибо что поправили мое неточное опубликование.
Подумав я оформил так и все заработало
[vba]Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyCells = Range("A1:C10")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
ActiveWorkbook.SendMail "petrruso@list.ru", "Изменение в учете"
End If
End Sub
[/vba]
А теперь дайте мне еще замечаний что бы втоптать меня в грязь и загнать под плинтус. Все спасибо