Run time error 424 object required

[cruise]

While running this macro, I am getting error. Can anybody help me

Sub abc()
    Dim score As Double
    Dim grade As String
    Dim i As Integer
    For i = 5 To Sheet1.Range("N65536").End(xlUp).Row 'assuming you start at row 1
    score = Sheet1.Cells(i, 14)
    Select Case score
        Case Is < 0.0001
            grade = "Very Rare"
        Case Is < 0.001
            grade = "Rare"
        Case Is < 0.01
            grade = "Uncommon"
        Case Is < 0.1
            grade = "Common"
        Case Else
            grade = "Very Common"
    End Select
    Sheet1.Cells(i, 15) = grade
    Next i
End Sub

[BrianMH]

try changing sheet1 to Sheets(1)

[Bob Phillips]

Sheet1 should work, except you do not have a sheet with a codename of Sheet1, your sheet is Sheet2.

I would explicitly use the sheet name

Sub abc() 
Dim score As Double 
Dim grade As String 
Dim i As Integer 
With Worksheets("Overview")
    For i = 5 To .Range("N65536").End(xlUp).Row 'assuming you start at row 1
        Select Case .Cells(i, 14) 
            Case Is < 0.0001 
                grade = "Very Rare" 
            Case Is < 0.001 
                grade = "Rare" 
            Case Is < 0.01 
                grade = "Uncommon" 
            Case Is < 0.1 
                grade = "Common" 
            Case Else 
                grade = "Very Common" 
        End Select 
        .Cells(i, 15) = grade 
    Next i 
End With
End Sub

[cruise]

Thank you very much