Список проголосовавших за комментарий "anatolyutkin, ОК.<br/> <br/> В данном случае это, может, и не принципиально, но коллизий преобразования типов могут вылезти где и когда угодно. Поэтому — декларируем все явно. В этом контексте — респект за тсрользование Option Explicit. Грамотно и полезно.<br/> <br/> Идем далее. <br/> <br/> x = Rnd()<br/> y = Rnd()<br/> <br/> Мало того, что это делается в цикле (тут свои подводные камни), так еще и без использования Randomize.<br/> <br/> У меня не было времени понять истинное математическое назначение этих рэндомов. Но в данном написании и x, и y будут генериться из ОДНОГО И ТОГО ЖЕ ряда. Я чуть позже вернусь, а ты пока загляни в хэлп VBA по этим функциям — там кратенько описаны нюансы каждой ф-ции. <br/> <br/> If Randomize is not used, the Rnd function (with no arguments) uses the same number as a seed the first time it is called, and thereafter uses the last generated number as a seed value."