software

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.

Without any error checking (all worksheets must exist):

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

HTH
--
AP

quot;Stevenquot; gt; a écrit dans le message de
...
gt; Please help - Trying to write macro that would open up to a certained
named
gt; worksheet (1-31) based on the day of the current month. I have created a
gt; formula =DAY(LEFT(NOW(),5)) that calaculates a value. Now I need it to
gt; open up the corresponding named sheet.
gt;
gt; Any help would be appreciated. TIA.
Ardus - you did it. Thanks. Without the error checking it works beautiful.
Thanks for the quick response. Have a Guinness on me.

Cheers

quot;Ardus Petusquot; wrote:

gt; Without any error checking (all worksheets must exist):
gt;
gt; Private Sub Workbook_Open()
gt; Worksheets(Format(Day(Date), 0)).Activate
gt; End Sub
gt;
gt; HTH
gt; --
gt; AP
gt;
gt; quot;Stevenquot; gt; a écrit dans le message de
gt; ...
gt; gt; Please help - Trying to write macro that would open up to a certained
gt; named
gt; gt; worksheet (1-31) based on the day of the current month. I have created a
gt; gt; formula =DAY(LEFT(NOW(),5)) that calaculates a value. Now I need it to
gt; gt; open up the corresponding named sheet.
gt; gt;
gt; gt; Any help would be appreciated. TIA.
gt;
gt;
gt;