Range and Find function error: Type Mismatch

why not

Function findRowLabor(laborWS As Worksheet, findStr As String) As Range
  Set findRowLabor =laborWS.Columns(1).find(findStr, , xlValues, xlWhole)
End Function