Private Sub Workbook_Open()
Worksheets(Format(Date, "dmmm")).Activate
End Sub

in the ThisWorkbook code module.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"R VAN DEURSEN" wrote in message
...
I have a worksheet with the dates of a month, say 1jan,
2jan, 3jan etc. Is there a way that excel by opening the
workbook selects automaticely the current date.