Hi,

I wrote this code in hope that it would look for the text string 'c6' which is found in one of the cells in range A1:C6. In the end I want it to assign the cell's address to a variable but one thing first.

Function finn(x)
'x = Range(A1:C6)
Dim y, q

y = x

q = Application.WorksheetFunction.Find(c6, y)
MsgBox q

End Function

But it won't work!

Anyone that knows how to write this properly?

Grateful for help on this

\Jonas