VBA to execute random number generation until certain criteria is met

Hi,
I am looking to develop a 9 cell grid (3x3) that is populated by random numbers 1 through 9 (where numbers can repeat).
However upon each execution I want exactly 3 cells to hold the value of "1".

Examples

this grid would force a re-run of the random function (not enough 1s)
2 7 9
2 1 5
7 8 6

also unsuccessful (too many 1s)
1 6 3
9 1 1
1 7 7

this would be a successful grid
1 9 2
1 5 1
3 4 6

On a tangential note, if this worksheet were embedded in powerpoint is there a way to execute the VBA script through a PPT action (like a mouse click or create some sort of action button)?

This macro will create a matrix of 3X3 at Activecell.
Macro code;

Please Login or Register  to view this content.