A unknow find error...

Originally Posted by davesexcel

lets see more of the code

Well while this is failing in a much longer macro, it is also failing in the following "test" macro.

Sub test()
Dim intRow As Integer


If Not Worksheets("Joy 2006").Range(Cells(7, 7), Cells(57, 7)).Find("Complete") Is Nothing Then
intRow = Worksheets("Joy 2006").Range(Cells(7, 7), Cells(57, 7)).Find("Complete").Row
End If
MsgBox (intRow)

Worksheets("Joy 2006").Range(Cells(7, 7), Cells(41, 7)).Select
End Sub

Ok I've sorted this out. The problem only occured when the active sheet was not "Joy 2006" so I changed the code to the following and now it works:

Sub test()
Dim intRow As Integer


If Not Worksheets("Joy 2006").Range(Worksheets("Joy 2006").Cells(7, 7), Worksheets("Joy 2006").Cells(55, 7)).Find("Complete") Is Nothing Then
intRow = Worksheets("Joy 2006").Range(Worksheets("Joy 2006").Cells(7, 7), Worksheets("Joy 2006").Cells(57, 7)).Find("Complete").Row
End If
MsgBox (intRow)

End Sub