Hi,

Now the error disappears but the list is not ordered

Code:
    EndRow = Foglio2.Cells(Rows.Count, 22).End(xlUp).Row
'---Qui creo un array con i valori univoci dei titoli estratti sul foglio: Dati
    arr = ZonaSenzadoppi(Foglio2.Range("V" & RigaFiltro + 11 & ":V" & EndRow))
    Range("a10:A100").value = arr
'    BubbleSort arr
    BubbleSort Application.Transpose(arr)
    Range("b10:b100").value = arr
A10 B10
72 72
75 75
47 47
46 46
15 15
65 65
95 95
85 85
68 68
64 64
5 5
98 98
90 90
86 86