Excel VBA Macros | Looping over collections exercise | Hangman and word search

Write a macro which takes you through a game of hangman:

Usual hangman rules - the picture will be uncovered (and you will be hung) if you don't guess the letters quickly enough

Here are some thoughts on how this could work:

• The hidden word has white font - so when you uncover a letter, just change the font colour of the relevant cell to black.

• You will need to begin by writing an initialisation routine to make the gallows invisible (it's made up of a collection of Shapes on the ActiveSheet, each of which has a Visible property).

• When a user guesses an incorrect letter you should loop over the shapes in the gallows; as soon as you find one which is not visible, you should make it visible and exit the loop.  Because of the order in which the gallows was drawn, this will recreate the shapes in the right order.

When you have finished (!), save your file as Hangman with answers. 

You can now have a go at the word search puzzle!  For this you need to create a macro which determines whether each of the countries in the list at the bottom of the worksheet exists in the word search grid, and reports on the ones which aren't:

The starting grid

In the unlikely event that you finish this too, save this as Word search with answers.