Macro to select cells in a range randomly without repeating?

[musicgold]

Hi,

I have a range of 100 cells consisting of numbers, arranged in a 10x10 format. I need to randomly choose one cell and remove the number in it from the pool. I have to keep repeating the process until all 100 numbers have been selected. In other words, I can't select a cell twice and the pool shrinks after each selection.

How can I create a macro to do this process in the most efficient manner?

Thanks

 

[musicgold]

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

Thanks. I see that you are choosing a random starting point for the find method.
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.

 

[musicgold]

I got it. Thanks