Interrogate A Sheet For Specific Data Based On Months

I'm trying to interrogate a sheet for specific data based on months, I can't seem to set the input to the range any help much appreciated
Mike54

Private Sub updatestats_Click()

Dim Mth As Variant
Mth = InputBox("Please enter the month you wish to analyse")
Dim AL As Integer
Dim January As Range
Dim February As Range
Dim cl As Range

Set January = Range("B4:B57")
Set February = Range("B58:B113")

'March = Range("B4:B57")
'April = Range("B4:B57")
'May = Range("B4:B57")
'June = Range("B4:B57")
'July = Range("B4:B57")
'August = Range("B4:B57")
'September = Range("B4:B57")
'October = Range("B4:B57")
'November = Range("B4:B57")
'December = Range("B4:B57")

For Each cl In Mth

If cl.Value = "Annual Leave" Then
AL = AL + 1
End If

Next cl

Cells(4, 14).Value = AL

End Sub