Calender goes automatically to today's date

[Dalia123]

I am creating a sort of calender with daily information log. I have the 'A' column with the dates. I need when the excel file open, the cursor automatically goes to the raw where it has a cell with today's date.

Can you help me?

 

[just_jon]

Welcome to MrExcel - see if this works; change Sheet1 to your actual sheetname.

Goes in the ThisWorkbook module.

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Workbook_Open()
<SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
<SPAN style="color:#00007F">With</SPAN> Worksheets("Sheet1")
    i = Application.WorksheetFunction.Match(CLng(Date), .[A:A])
    Application.Goto .Range("A" & i)
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>

 

[Dalia123]

Thank you. It works fine.