Macro to find current month in row

The code below finds the current date in column A and positions it under the frozen pane.

Sub Workbook_Open()
Application.Goto Sheets(1).Columns(1).Find(DateValue(Date)), True
End Sub


I want the code to do exactly the same as above, but to look for the current month and not the current day. The dates in column A are:

01/01/2012
01/02/2012
through to
01/12/2012

Try this.

Please Login or Register  to view this content.