Hi from italy...so sorry for my bad english :)

I use this code :

Application.Run "ATPVBAEN.XLA!Histogram",
Sheets("Archivio").Range("$A$2:$H$5000") _
, ActiveSheet.Range("$D$46:$E$77"), ActiveSheet.Range("$A$1:$A$32"),
False _
, False, False, False

to generate a serial of casual number.

My question :

is possibile to *avoid* that a number is present 2 o 3 time in a row ?

example to avoid :

9 10 11 11 12 15 18 30
6 11 11 15 23 23 25 31



TIA