Using Find.Address in VBA to get a range

Question

I\'m trying to find the location of a specific string in vba.

The following code gives me the error: Run-time error 91: Object Variable or with block variable not set.