Select Case Statement

It should be like this

Dim sinMonth As Single

sinMonth = Month(Date)
Select Case sinMonth
    Case 1
        Application.Goto Sheets("Jan").Range("E5")
     Case 2
        Application.Goto Sheets("Feb").Range("E5")
     Case 3
'etc
Case Else
Exit Sub
End Select

or

Select Case Month(Date)
    Case 1
        Application.Goto Sheets("Jan").Range("E5")
     Case 2
        Application.Goto Sheets("Feb").Range("E5")
     Case 3
'etc
Case Else
Exit Sub
End Select