Type Mismatch on find command

PLease help i am gettting type mismatch with this

Sub Ammend_FindRow()
    
    Dim BDone As Range

        Set BDone = Worksheets("Cranes").Range("B7:B500000").Find(Range("$L$1"), xlValues, xlWhole, xlByRows, xlNext, False, False, False)
        
        If BDone Is Nothing Then
        
        Exit Sub

        BDone.Select
        
        End If
    
End Sub

Thank you