Use this and it works
ActiveCell.Formula = "=Find("" "",d3,1)"

or

ActiveCell = Application.WorksheetFunction.Find(" ", Range("D3"), 1)

if you only want to write the data and not the formula (saves memory)

Greetz

"Stever" schreef:

I'm trying to use "Find" to determine the exact location of a space in a
string. (e.g. Smith Bob space is located in postion 6) In code I'm entering
ActiveCell.Formula = "=Find(" ",D3,1)" to determine the space location. It
errors every time. I believe it has to do with the quotation marks. This
works fine as a formula in the spreadsheet, but in VBA an error occurs.
Any ideas on why I get an error?