Maze Escape VB competition!

[undifusion]

Well heres the problem.

Anyone fancy having a bash at it?

 

[undifusion]

Thankyou! i got it working =D.Really nice bit of work Mike! But i was wondering if anyone might know how, instead of having the route being plotted out all at once, i could see the steps as it moves between the different cells? So when run you can watch it move along?

 

[mikerickson]

You can modify this section of my sub SolveMaze, by un-comment outing the Call Delay. The sub Delay would have to be written, or copied from the OP depending on what you want.
How big is the maze you are looking at, with "big" defined by how many moves it takes to reach the goal?

  Rem display solution path
        For i = LBound(ReversePath) To UBound(ReversePath)
            'Call Delay
            With ReversePath(i)
                .Value = i
                .Font.ColorIndex = xlGuess
                '.Interior.ColorIndex = 3
            End With
        Next i