# Excel VBA Macros | Looping over collections exercise | Poker game - generate hands of cards

This exercise is provided to allow potential course delegates to choose the correct Wise Owl Microsoft training course, and may not be reproduced in whole or in part in any format without the prior written consent of Wise Owl.

 Software ==> Excel VBA Macros  (52 exercises) Version ==> Any version of Excel Topic ==> Looping over collections  (11 exercises) Level ==> Harder than average Subject ==> VBA training
Before you can do this exercise, you'll need to download and unzip this file (if you have any problems doing this, click here for help).

You need a minimum screen resolution of about 700 pixels width to see our exercises. This is because they contain diagrams and tables which would not be viewable easily on a mobile phone or small laptop. Please use a larger tablet, notebook or desktop computer, or change your screen resolution settings.

Las Vegas, 03:15 am.  You are in the final 4 of the World Series poker tournament, with a cash prize of \$1,000,000, when someone spills coffee on the cards.

Write a macro to generate four hands of random cards:

A typical deal - Chris Ferguson has two pairs, but maybe you can bluff with your single pair of 3s

There are many ways to solve this (that is part of the challenge), but here are some hints:

• The Symbols worksheet contains 4 ranges called Heart, Club, Diamond and Spade, which will give you the symbols you need
• The expression Int(Math.Rnd * 13) + 1 will generate a card number between 1 and 13 (and similarly you could generate the suit)
• For each new card that you generate, you need to check it is not already on the table

When you have finished, save this as Poker deal - and give yourself a huge pat on the back!

You can unzip this file to see the answers to this exercise, although please remember this is for your personal use only.