You need to paste this macro onto the appropriate sheet tab in the VBA
editor (e.g. Sheet1")

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 And Target = "Passed" And Target.Columns.Count = 1
And Target.Rows.Count = 1 Then
Cells(Target.Row, 5) = Date
End If
End Sub


--
mrice

Research Scientist with many years of spreadsheet development experience
------------------------------------------------------------------------
mrice's Profile: http://www.excelforum.com/member.php...o&userid=10931
View this thread: http://www.excelforum.com/showthread...hreadid=561829