Type Mismatch on find command

**Abbadon486** · 01-16-2014, 06:45 AM

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

**Norie** · 01-16-2014, 06:51 AM

The 2nd argument of Find is After and should be a range, you have the constant xlValues as the 2nd argument.

Try putting another comma between the first 2 arguments or specify the After argument.