Boton en Excel

[3pies]

Copia esto desde VBA, en la hoja que quieras controlar (no en Thisworkbook, ni en un módulo):

Código:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
rango = "A2"
If Not Application.Intersect(ActiveCell, Range(rango)) Is Nothing Then
    ActiveCell = Now()
End If
End Sub

Saludos.