Баги обработки события Workbook_SheetChange - VB

Формулировка задачи:

Подскажите, плз....
Обрабатываю событие таким кодом
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
Sh.Cells(Target.Row, 10).Value = Date
End Sub
при этом, истоия редактирования листа - обнуляется.
Какие есть объекты и методы для работы с историей редактирования листа в Excel?
Хочу, чтобы после обработки события SheetChange история редактирования не обнулялась!

Решение задачи: «Баги обработки события Workbook_SheetChange»

textual
                            Листинг программы 
                        

                            Remarks
<br>
<br>This event doesn<font color="green">'t occur when cells change during a recalculation. Use the Calculate event to trap a sheet recalculation.
<br>
<br>Deleting cells doesn'</font>t <font color="blue">trigger</font> this event.
                        