Thanks. I see that you are choosing a random starting point for the find method.Here is another macro that you can consider which works with any size grid (just change the A1:J10 in the Set statement) and it works with any content in the cells as well....
Rng.Find("?*", Cells(Int(Rng.Rows.Count * Rnd + Rng(1).Row), Int(Rng.Columns.Count * Rnd + Rng(1).Column)), , xlWhole, , , , , False).Select
However I am not sure what you are doing with Rng(1).Row and Rng(1).Column in the line above. In fact, I am not sure what happens when you pass an integer to a range object.