Что это?

[Flangini]

Господа расскажите пожалуйста (по строкам) что выполняет данный код:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("b2:b10000")) Is Nothing Then
With Target(1, 0)
.Value = Date
End With
End If
End Sub

[IgorGO]

этот макрос срабатывает каждый раз, когда изменились данные на листе.
If Target.Cells.Count > 1 Then Exit Sub
если одновременоо изменилось больше 1 ячейки - ничего не делаем
If Not Intersect(Target, Range("b2:b10000")) Is Nothing Then
если изменения прошли в колонке В (в одной из ячеек с 2 по 10000)
With Target(1, 0)
то в колонку А (левее изменившейся ячейки) вставляется текущая дата
.Value = Date
End With
End If

[Flangini]

Большое спасибо!!! Просветил.