RAND() en vba

Cells(n+1, 2) = Application.NormInv(Application.RAND(), media, desvest)

Hola alguien sabe si se puede usar la función aleatorio en una macro y si
se
puede como se usa es que no me deja, les muestro mi programa, sería de
mucha
ayuda garcias

media = Cells(7, 4)
desvest = Cells(8, 4)
For n = 1 To 1000
Cells(n+1, 2) = Application.NormInv(Application.RAND(), media, desvest)
Next n
Suma = Application.Sum(B2, B1001) / 1000
Cells(14, 6) = Suma
obs = "B2:B1001"
mediaobs = Application.Average(Range(obs))
Cells(15, 6) = mediaobs
mediaobs2 = Application.Average(obs)
Cells(16, 6) = mediaobs2