I want to add a macro:

Sub AutoOpen ()
Selection.Find.Execute Find Text:=MonmthNam
End Sub

What I wan this macro to DO is open my calendar on the current month, rather
than on January esch time. Purpose: to save scrolling down to every month
(except January) as the year progresses.

Can you help me?