Запрет ввода более одного значения

[Rosco]

Добрый день
данный макрос не позволяет вводить более одного значения в певом столбце.. Как его изменить чтобы он работал не на столбец , а на строку.. ? спс

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Long
Dim str As String
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then
str = Target.Value
Application.EnableEvents = False
r = Cells(Rows.Count, 1).End(xlUp).Row
Range("A2:A" & r).ClearContents
Target.Value = str
End If
Application.EnableEvents = True
End Sub

[mc-black]

Протестировал данный макрос - все он позволяет. Сначала дайте рабочий вариант. А еще лучше - нормально опишите, что вам нужно сделать?