Time Stamp

[Everx Moorx]

Hey Guys,

Does anyone know how to time stamp a cell just by clicking on it?

I had some code that looks like this but this doesn't work:

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A" & Target.Row) = Now()
End Sub

Any suggestions on this, will be greatly appreciated.

Ever

[amer7862000]

why do u call the function from a command button... looks more professional than havin a click on a cell; to time stamp...

[TheFIDDLER]

Try the following:
This works for me.

[Highlight=VB]
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)

Range("A" & Target.Row) = Now()
End Sub

[\vbcode]


Neat little bit of code - will have to remember this one!