Copy cells from each row into new sheet, depending on if statement

Creates a new sheet and names it according to cell value in column L

Sub Check_MaxMinOver()
Dim input_box As Integer

input_box = InputBox("What should maxmin be higher than?")

For Each cell In Range("L5:L" & Cells(Rows.Count, "L").End(xlUp).Row)
    If cell.Value > input_box Then
        Sheets.Add.Name = cell.Text
            Sheets(cell.Text).Range("L1").Value = cell.Value
            Sheets(cell.Text).Range("A1").Value = cell.Offset(0, -11).Value
    End If
Next
End Sub