myCell
is a Range object, but the function Find_First
is expecting a String argument.
So you should change this:
Set job = Find_First(i, myCell)
To this:
Set job = Find_First(i, myCell.Address)
You will also need to change the return statement so that the return value matches the type
of data expected in the job
variable (Range), you need the Set
keyword in this assignment:
Set Find_First = Rng
Or, you need to change the declared type of job
to something other than Range object. I am not really sure what you expect to return, but because your data types are all wack, it is difficult to recommend a precise solution.
And likewise, your declaration of Value
as Range object cannot accept job.Offset(0, 1).Value
(which returns a string), without raising a mismatch error. So again, you either need to change the declaration of this variable or change the assignment of the object.
Otherwise, this may prove useful: