Amigo,

Segue uma opção com fórmula. Veja se é isso.

JPedro,

A função que você enviou, faz apenas um sorteio entre os números

Exemplo: Tenho estes números (01-03-15-18-22-25-32-45-55-57-59) e quero que o Excel selecione apenas 6 destes números aleatoriamente.

teosbourne,

Veja se isso te ajuda

o código, faz um sorteio entre os números, retorna 6 números aleatórios sem repetição

Sub sort_nums()
Dim arr() As String, y, a
nums = "01,03,15,18,22,25,32,45,55,57,59"
arr = Split(nums, ",")
a = ""
For i = 1 To 6
start:
y = arr(WorksheetFunction.RandBetween(1, UBound(arr)))
If InStr(1, a, y) > 0 Then
GoTo start
Else
a = a + " " + y
End If
Next i
MsgBox a
End Sub

Agradeço ao JPedro e ao Syrax. As duas formas me ajudaram muito. Só que o que precisava mesmo o Syrax resolveu.
JPedro agradeço demais, pois essa formula que fez vai me ser muito util numa tabela que estou desenvolvendo. Obrigado mesmo aos dois. QUe Deus os abençoe..