Дата и часы в ячейке Microsoft Excel 2010

[7vlad37]

Уважаемые знатоки здравствуйте!
Пожалуйста помогите,совсем запутолся.При открытии книги в ячейке запускаются дата и часы
все хорошо,но как сделать чтобы дата и часы находились толко на Листе1 в ячейке D2.А то сейчас эти данные находятся на всех листах.
Sub Auto_open()
UpdateTime
End Sub
Sub UpdateTime()
Dim varNextCall As Variant
' Записываем в ячейку текущее время
Cells(1, 1).Value = Now
' Записываем в varNextCall время, когда вызвать этот макрос _
в следующий раз (через 1 секунду)
varNextCall = TimeSerial(Hour(Now), Minute(Now), Second(Now) + 1)
' Уведомляем Excel в необходимости вызова макроса
Application.OnTime varNextCall, "UpdateTime"
End Sub

[Dog_DinGo]

WOrksheets("Лист1").Cells(1, 1).Value = Now

[VictorM]

как сделать чтобы дата и часы находились толко на Листе1 в ячейке D2.А то сейчас эти данные находятся на всех листах.

так нужно тогда и прописать, что только на листе1 в ачейке d1
вместо Cells(1, 1).Value = Now
Sheets("Лист1").[d2].Value = Now

[7vlad37]

Уважаемые Форумчане!!!!
Огромное спасибо за помощ.

[Dog_DinGo]

Не внимательно прочитал, не заметил, что в ячейку Д2