Not sure where it would go in your code, but you can get such a random number with

[vba]

evaluate("randbetween(1,12)")
[/vba]

BTW, what is the Case statement for, itv seems superfluous.