Hi there,

I am using the following code to print the system date and time in
column 3 when the user types something in column 1. However this only
ranges from row A2 to row A20.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A2:A20], Target) Is Nothing Then
Application.EnableEvents = False
Cells(Target.Row, 3) = Now
Application.EnableEvents = True
End If
End Sub

I would like however, to set this condition for all of the column and
not just rows 2 through 20.

Any help would be greatly apreciated

Aidan Mullane


--
afmullane
------------------------------------------------------------------------
afmullane's Profile: http://www.excelforum.com/member.php...o&userid=33567
View this thread: http://www.excelforum.com/showthread...hreadid=533514