WorksheetFunction.RandBetween (Excel)
Retorna um número inteiro aleatório entre os números especificados. Um novo número aleatório inteiro será retornado sempre que a planilha for calculada.
RandBetween (Arg1, Arg2)
Dim dblRandBetween As Double
dblRandBetween = WorksheetFunction.RandBetween(Arg1:=, Arg2:=)
Arguments
Arg1, Arg2Arg1 - Inferior-o menor inteiro que RandBetween retornará
Arg2 - Top-o maior inteiro de RandBetween retornará