Runtime error 1004: Application or object-defined error.

[yxz152830]

Gurus,
excel highlighted below code for error in the title...
I was not sure what is wrong with it, but after i added Sheets("abc").activate then it's good to run. But still i cannot see the point of activating the sheet. What is the root cause? Thanks!

' Sheets("Input").Activate
For Each cell In Sheets("Input").Range(Cells(5, "a"), Cells(800, "a"))
If cell.Value = input_locator Then
With Sheets("Rate").ListObjects(Right(input_locator, 8))
a = .DataBodyRange.Rows.Count
    For Each cell1 In .DataBodyRange.Columns(1).Cells
    If Len(cell1) = 0 Then
    a = a - 1
    Set scan_range = Range(cell.Offset(1, 0), cell.Offset(a, 0))
    GoTo next_step
    End If
    Next cell1
End With
End If
Next cell

 

[Fluff]

You need to qualify the cells with the sheet name as well as the range like

For Each cell In Sheets("Input").Range(Sheets("Input").Cells(5, "a"), Sheets("Input").Cells(800, "a"))

or shorter

For Each cell In Sheets("Input").Range("A5:A800")