Try this code in the Workbook_Open event

Private Sub Workbook_Open()

Cells(Application.Match((CDbl(Range("b1").Value)), Range("a:a")),
1).Activate

End Sub

Good luck.

Ken
Norfolk, Va


On Jun 25, 4:20 pm, Diogo wrote:
Ok, to put it in simple terms I've a calendar in colum A ranging from cell A1
to A365, In cell B1 i've Today() function.
What I want to do is when I open this excel file I want the active cell in
colum A to be the one that has the corresponding date equal to cell B1. Is
this possibel? Some sort of code? If yes could someone exemplify?
Thanks.