Using Current Date to Move to a Specific Sheet

[TripleT]

Hi

I would like to create a macro using Autpen. What I would like it to do is look at the current date, then move to a specific sheet. For example if today is the 15th of January, I'd like it to move to the January sheet; if it's the 15th of February, I'd like it to move to February's sheet.

Can someone help me out, or tell me where I can start.

Thanks.

 

[santeria]

Cool Question...

I Hope Aladin gets this one !!!

 

[Smitty]

Welcome to the Board!

Something like this might get you started:

Private Sub Workbook_Open()
    If Date >= #1/1/2004# And Date <= #1/31/2004# Then Application.Goto Reference:="January"
    If Date >= #2/1/2004# And Date <= #2/28/2004# Then Application.Goto Reference:="February"
    ' And so on...
End Sub

Hope that helps,

Smitty

 

[Barrie Davidson]

Or:

Private Sub Workbook_Open()
    Sheets(Format(Now, "mmmm")).Activate
End Sub

Regards,

 

[TripleT]

Thanks for your help. Both solutions worked perfect, and will be suitable for a variety of spreadsheets I'm working on.

Thanks again.