Excel auto insert date when user moves to a cell 1

[TopDawg]

Is there a way to Have Excel auto insert the date when a user moves his cuser to a cell

 

[Zathras]

Yes:
[blue]

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
  If Target.Address = "$A$1" Then [A1] = Date
End Sub

[/color]
(Right-click on the sheet tab and select "View Code&quot

 

[TopDawg]

Thanks for the help. Worked great