Thread: Todays Date Macro

for on open
use

Code:

Private Sub Workbook_Open()

Dim LDate As String

LDate = Date
Sheets("Sheet1").Range("a1") = LDate
End Sub

edit
i just thought what a pointless excercise just put
=today() in a1 !!!!!!!!!