I have been trying to use the following code but for some reason Nothing is
happening when I make a change to cell ("A1"). I pasted the code in a module,
and clicked on the sheet1 and right clicked the mouse to view the code and
pasted it in. Can someone tell me what i'm doing wrong.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target = Cells(1, 1) Then Cells(2, 1) = Now
End Sub 'alternatives: NOW() or date or Time

Thanks for any help