Opening up named worksheets according to the day of the month

S

Steven

Please help - Trying to write macro that would open up to a certained named
worksheet (1-31) based on the day of the current month. I have created a
formula =DAY(LEFT(NOW(),5)) that calaculates a value. Now I need it to
open up the corresponding named sheet.

Any help would be appreciated. TIA.
 
A

Ardus Petus

Without any error checking (all worksheets must exist):

Private Sub Workbook_Open()
Worksheets(Format(Day(Date), 0)).Activate
End Sub

HTH
 
S

Steven

Ardus - you did it. Thanks. Without the error checking it works beautiful.
Thanks for the quick response. Have a Guinness on me.

Cheers
 
Top