Учет дат закрытия книги

[RipVanWinkel]

Здравствуйте.
Помогите разобраться.

В существующем макросе - при каждом открытии - на листе проставляется числовое значение (определяющее количество открытий книги).

Как заставить макрос записывать дату-время при каждом закрытии книги - напротив этих числовых значений?

[Казанский]

Модуль книги, добавил код, подобный имеющемуся

Private Sub Workbook_Open()
Dim lstr&
  With Worksheets("Лист3") 'добавил работу с конкретным листом
    lstr = .Cells(Rows.Count, 5).End(xlUp).Row + 1
    If lstr < 4 Then lstr = 4
    .Cells(lstr, 5) = .Cells(lstr - 1, 5) + 1
  End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim lstr&
  With Worksheets("Лист3")
    lstr = .Cells(Rows.Count, 6).End(xlUp).Row + 1
    If lstr < 4 Then lstr = 4
    .Cells(lstr, 6) = Now
  End With
End Sub

[RipVanWinkel]

Код - работает. Огромное спасибо.