Çalışma kitabındaki sayfalarda hücrelere çift tıklandığında bugünün tarihini ekleyen VBA kodudur.
Option Explicit
Private Sub Workbook_SheetBeforeDoubleClick( _
ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
ActiveCell = Date
End Sub