Private Sub Workbook_Open()
Worksheets(1).Range("H10").Value = Date
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code

close your workbook, and open it again, and it should work.

--
HTH

Bob Phillips

"Hoshyar" wrote in message
...
I have a drop down list for the days of the year, form 1 jan 05 to 31 dec
05.
when I click on the drop down list, it always shows me 1 jan, then I have
to
scrol down and look for "today" date. is there any possibility that when
I
click on the drop down list to see the "today" date. I mean when use it
today
I see the date 16 Sep 05, and if I use it tomorrow I want to see 17 Sep 05
and so on.

Your help is appreciated.
Hoshyar