Single Click VBA code for date Excel 2010

Question

The date shows in column A cell with a single click on cell in column A through C in that row. Is there a code for that? Here is the code I have already that shows the date when clicking anywhere in the row

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells(Target.Row, 1) = Date
End Sub

Answer 1

Try it as,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    if not intersect(target, range("A:C")) is nothing then
        dim trg as range
        for each trg in intersect(target, range("A:C"))
            cells(trg.row, "A") = date
        next trg
    end if
End Sub