Private Sub Worksheet_SelectionChange(ByVal Target As Range
If Target.Cells.Count 1 Then Exit Su
If Target.Row <= 8 Then Exit Su
Set isect = Intersect(Target, Range("A:A")
If Not isect Is Nothing Then Target.Value = Now(
End Su


----- chris wrote: ----

This is not your personal service if you want it come and get it

Private Sub Worksheet_SelectionChange(ByVal Target As Range
Set isect = Intersect(Target, Range("A:A")
If Not isect Is Nothing Then Target.Value = Now(
End Su
----- MAGICofSeth wrote: ----

As per the instructions, I will get straight to the point

I would like to have a column of cells from "A9" down to "A(infinity)
that when I click on a single cell in that column, the current date an
time are entered into that cell only. If I were to click on a differen
cell in that column, the current date and time would automatically b
placed into that's cell only. Therby, two different times at leas
would be displated in two different cells which were clicked onl
clicked on a few moments apart

The date and time need to be unchanging after it is "clicked" in. (no
constantly updating with the current date and time) which is m
problem

That is all. If people could please email answers or VBA code to me at
I would really be grateful

Thank You
--Set


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