Mine Sweeper in Excel Solver

[ponghki]

Hello Trying to write a function that solve Minesweeper game in this file

minesweeper.xlsm
this is the code of the game

Please Login or Register  to view this content.

and here's my code but it can only generate a random cell

Function nextSafeCell() As Range

Dim RNG As Range
Set RNG = Range("b2:f6")

Dim randomCell As Long
randomCell = Int(Rnd * RNG.Cells.Count) + 1

set nextsafecell = RNG.Cells(randomCell)

End Function

Sub revealNextSafeCell()
Dim nextCell As Range
Set nextCell = nextSafeCell()
Range("A2").Select
nextCell.Select
End Sub

Big Thanks for helps

[Ron Coderre]

Welcome to the forum.

Please take a minute to read the forum rules (at the forum rules link, above).
You'll see that, while we don't prohibit posting the same question to more than one forum, we DO require that you include a link to the other post. We at Excel Forum all volunteer our valuable time to answer questions. Without the link, we would not know when your issue has been resolved so we can stop attempting to help you and spend that valuable time assisting others.

Since this is your first post...I'll post the link for you...THIS time:
http://www.mrexcel.com/forum/excel-q...el-solver.html