Object Required Error 424 on Find Method

[ACM8026]

I'm trying to run a .find operation in VBA but keep getting Run-Time Error 424 = Object Required. What does that mean?

Below is my code. If you can help me identify my error i'd appreciate it. Thanks,

Note I've declared 'WorkOrder' as a Double type (it's a work order number with two digits beyond a period i.e. #####.##)

    Set findValue = P2PInvoices.Range("K1:K" & LastrowP2P).Find(what:=WorkOrder, After:="K1", LookIn:=xlValues, SearchOrder:=xlByRows, searchdirection:=xlNext)
    If Not findValue Is Nothing Then
    InvDesc = findValue.Offset(0, -1).Select
    Application.CutCopyMode = xlCopy
    Selection.Copy

 

[ACM8026]

Here is a copy of the file available for viewing....
https://www.box.com/s/qm2mi0t1wvkyc0zxlbvm

 

[Norie]

P2PInvoices should be Sheets("P2PInvoices").

Also, After:="K1" should be After:=Sheets("P2PInvoices").Range("K1").

 

[ACM8026]

Norie --- THANK YOU. That has kicked my tail for over a week. Thank you!