Tommy

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo enditall
Application.EnableEvents = False
If Target.Address = "$A$1" Then
If Target.Value < "" Then
Excel.Range("A2").Value = Date
Excel.Range("A3").Value = "N"
Excel.Range("A4").Value = "N"
End If
End If
enditall:
Application.EnableEvents = True
End Sub

Gord Dibben Excel MVP

On Thu, 18 Dec 2003 09:40:17 -0600, TommyJ
wrote:

I have a spreadsheet that I want the Date and a couple other values
(strings if it makes a difference) automatically filled in on when a
user starts to enter data into a row.

ie.

user enters "foo" in A1 I want the current date to automatically enter
into A2, and an "N" in A3 and A4. this would be regardless of what's
in A1, only that there was data entered.

Thanks for any help offered in advance

Laziness is the Father of invention


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