números aleatorios

Prueba en un módulo ordinario de VBA con:

Sub noRepe()
Dim n, num As Integer
For n = 4 To 8
1
num = Rnd() * 100 + 1
If Application.CountIf(Range("C4:C8"), num) > 0 Then GoTo 1
Cells(n, 3).Value = num
Next n
End Sub

Saludos desde Tenerife.
***********************
"J L Casado" escribió en el mensaje
news:

¿Es posible que, llamando a la función ELEATORIO.ENTRE(1;100), en p.e. 5
celdas, se obtengan 5 números diferentes siempre?
Alguien sabe cómo conseguirlo?

Gracias anticipadas.