Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Puts the date & time in column K when the data changes,
'in the rows in columns A-J
'put in worksheet code
If Target.Count > 1 Then Exit Sub
Select Case Target.Column
'columns to check for data change
Case 1 To 10
'where the time is put
Cells(Target.Row, 11) = Now()
End Select
End Sub
--
Paul B
Always backup your data before trying something new
Using Excel '97
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **
"John McCarthy" <JLMcC...@LBL.gov> wrote in message
news:047901c2eb84$7d383040$3001...@phx.gbl...