aleatorio

Hola Johann.

En un módulo oridinario Copia/Pega:

Sub generador()
Dim fila As Integer
For fila = 1 To 10
rep:
Cells(fila, 1).Value = fila
Cells(fila, 2).Value = Int(9 * Rnd) + 1
If Worksheets(2).Range("B1:B" & fila).Find(Cells(fila, _
2).Value).Row < fila Then GoTo rep
Next fila
End Sub

Saludos desde Tenerife.
************************
"Johann Romero" escribió en el mensaje
news:

Como puedo hacer lo siguiente


una lista del 1 al 10
1
2
3
4
5
6
7
8
9
10

y que al costado, digamos en la columna B, me muestre un aleatorio del 1
al 10, pero sin que ninguno se repita.

Lo que quiero es una lista en orden aleatorio, sin que se repita los
numeros.

Gracias.