This code will select the worksheet assuming the format is Jan , Feb, Mar,
etc., and then selects the row corresponding to the day + 1 (to allow for
headings) and column B

Private Sub Workbook_Open()
With ThisWorkbook
.Worksheets(Format(Date, "mmm")).Activate
.Range("B" & Day(Date) + 1).Select
End With
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



--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Hans gmail" <Hans wrote in message
...
I have a worksheet where I type in lists of names on a daily basis. I
have
formatted the worksheet with the column headings and row numbers plus the
calendar dates for the whole month (one worksheet for one month). How can
i
make the cursor go to a specified date like "today's date" when I open the
worksheet (instead of scrolling down to today's date)? Is it thru a
function
or macro? I highly appreciate any help anyone can offer.