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