insert current date on click in one column

[jacq]

how do i select as a range a whole column, so that if someone clicks into any cell in that column it inserts the TODAY()

 

[JustinEzequiel]

from Excel, I would do something like...

[tt]
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
If Sh.Name = "Sheet1" Then
If Target.Column = 4 Then
Target.Value = Now()
End If
End If
End Sub[/tt]