How about:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

Dim myCell As Range
Dim myRngToCheck As Range

Set myRngToCheck = Me.Range("b:B")

If Intersect(Target, myRngToCheck) Is Nothing Then Exit Sub

On Error Resume Next
Application.EnableEvents = False
For Each myCell In Intersect(Target, myRngToCheck).Cells
With myCell
If IsError(.Value) Then
'do nothing???
ElseIf .Value = "" Then
.Offset(0, 24).ClearContents
Else
.Offset(0, 24).Value = Now
.Offset(0, 24).NumberFormat = "mm/dd/yyyy hh:mm"
End If
End With
Next myCell
Application.EnableEvents = True

End Sub

Since you might be doing lots of things, this one just flies by any errors and
keeps going.



"nrage21 <" wrote:

no solution? :(

Can the code be disable when deleting rows?

---
Message posted from http://www.ExcelForum.com/

--

Dave Peterson