Hi all,

I have 13 sheets in a workbook: Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov , Dec and Macros (the sheet with the message that macros must be enabled in order to use the workbook). I need the workbook to open on the sheet relative to the current month. For example, when I open the workbook today, it should open on the May sheet.

This is my first solo try at using the Select Case Statement, and I can’t get it to work.

I have:

Sub SheetSelectionCase()
Dim Month(Today()) As Single
Select Case Month(Today())
    Select Case 1
        Application.Goto Sheets("Jan").Range("E5")
    Select Case 2
        Application.Goto Sheets("Feb").Range("E5")
    Select Case 3
        Application.Goto Sheets("Mar").Range("E5")
    Select Case 4
        Application.Goto Sheets("Apr").Range("E5")
    Select Case 5
        Application.Goto Sheets("May").Range("E5")
    Select Case 6
        Application.Goto Sheets("Jun").Range("E5")
    Select Case 7
        Application.Goto Sheets("Jul").Range("E5")
    Select Case 8
        Application.Goto Sheets("Aug").Range("E5")
    Select Case 9
        Application.Goto Sheets("Sep").Range("E5")
    Select Case 10
        Application.Goto Sheets("Oct").Range("E5")
    Select Case 11
        Application.Goto Sheets("Nov").Range("E5")
    Select Case 12
        Application.Goto Sheets("Dec").Range("E5")
End Sub
Can someone please help me with it.

Thank you,
Gos-C