Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim blFound As Boolean
Application.EnableEvents = False
blFound = False
For Each r In Sheets("Log").UsedRange.Rows
If r.Cells(1, 1) = Sh.Name And r.Cells(1, 2) = Int(Now) Then
' already logged today
blFound = True
Exit For
End If
Next
If Not blFound Then
Sheets("Log").Range("A65536").End(xlUp).Offset(1, 0).Value = Sh.Name
Sheets("Log").Range("A65536").End(xlUp).Offset(0, 1).Value = Int(Now)
End If
Application.EnableEvents = True
End Sub