дата в соеднюю ячейку

[runik]

Здравствуйте! подскажите как подправить макрос.
дата ставится даже без ввода цифр(т.е. если нажать просто на ячейку допустим А3 два раза-то рядом в соседней ячейке В3 появляется дата,то есть без ввода каких нибудь данных в А3) как это устранить?


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A:A")) Is Nothing Then
With Target.Offset(0, 1)
.Value = IIf(IsDate(.Value), .Value, Now)
End With
End If

End Sub

[Hugo121]

Потестите такой вариант - как-то ничего проще не придумалось:

Dim t

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        t = Target.Value
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If Target <> t Then
            With Target.Offset(0, 1)
                .Value = IIf(IsDate(.Value), .Value, Now)
            End With
        End If
    End If
End Sub

[runik]

Вполне приемлимо . Спасибо