Date Function in Excel

[gwdaley]

Could someone help with my seemingly simple function.
I am working on a spreadsheet of data which has various rows of
information spread across several years sorted by date. Therefore I
have multiple worksheets for each month with column A representing the
days of that month and columns going across for each year.
What I would like Excel when I open the file is automatically jump to
the month worksheet for today and highlight the row for todays date.

Cant seem to find anything online or in the Help to show me how to do
this.

Is it possible?

Thank you in advance for the help.

 

[Jim May]

Paste this code (into the ThisWorkbook Module)

Private Sub Workbook_Open()
Dim CurrMonth As String
Dim CurrDay As Date
CurrMonth = Format(Date, "mmmm")
CurrDay = Date
Sheets(CurrMonth).Activate
With Range("A:A")
Set cell = .Find(CurrDay, LookIn:=xlValues)
If Not cell Is Nothing Then
cell.Activate
End If
End With
End Sub

Just leaning here,,,,
Jim May