Kilroy,

In my example, this condition:
If lngQuestions / oDic.Count = oDocBank.Sections.Count / lngSec Then Exit Do

was met after 20 random numbers were selected from 1-100, 40 random numbers 101-200 etc. So after all five section were processed 100 random numbers have been selected 1-500.

In your case the defined conditions are not met. I think if you tried for 24 questions then it might work.