VBA Case statements

I have written the program to classify nos 1-4 as short, 4-8 as medium and 9,10 as long. The output shows all nos as long. Please help



Sub casestatements()
Dim filmname As String
Dim filmlength As Integer
Dim filmtype As String

filmname = Application.InputBox("Select the film", Type:=0)
filmlength = ActiveCell.Offset(0, 1).Value

Select Case filmlength

Case 1, 2, 3, 4
filmtype = "short"
Case 5, 6, 7, 8
filmtype = "medium"

Case Else
7 filmtype = "Long"

End Select

MsgBox filmname & " is " & filmtype

End Sub