'first d10 is the output range, the second 1 is for the number of random numbers generated

'the rnd() is for a random seed, the c10 is the past cell that had a random number in it and is

'the mean, the last argumend d7 is the standard deviation.

If Cells(8, 4) <> "" Then

Application.Run "ATPVBAEN.XLAM!Random", ActiveSheet.Range("d10"), 1, 1, 2, Int(Rnd() * (32767 - 1) + 1), Range("c10").value, _

Range("d7").value

End If

thank you