I think I would modify your and Bob's code slightly:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
Dim myRng As Range

Set myRng = Nothing
On Error Resume Next
Set myRng = Intersect(Target, Me.Range("a:a"))
On Error GoTo 0

If myRng Is Nothing Then Exit Sub

On Error GoTo errHandler:

For Each cell In myRng.Cells
If IsNumeric(cell.Value) Then
If cell.Value 5 Then
Application.EnableEvents = False
cell.Offset(0, 3).Value = "item1"
End If
End If
Next cell

errHandler:
Application.EnableEvents = True

End Sub

Now if you paste in A1:X99, only the cells in column A are looked at.





wrote:

It really works.
THANK YOU BOB!!!

--

Dave Peterson