Boa tarde!!

Poste seu arquivo modelo compactado!!

Leia:
http://www.extendoffice.com/documents/e ... tring.html
Att

Anexada

Boa tarde!!

Talvez isso te ajude.

Sub GeraNumerosAleVBA()
Dim b() As Boolean, e As Range, k&, x&
ReDim b(1 To 48)
For Each e In Range("K4:P4")
    Do
        x = Int(Rnd() * 48) + 1
        If b(x) = False Then
            e.Value = x
            b(x) = True
            Exit Do
         End If
        k = k + 1: If k > 100 Then Exit Sub
    Loop
Next
End Sub

Tente adaptar
Leia:
http://www.ozgrid.com/VBA/RandomNumbers.htm
Att

Boa tarde
Meu caro Alexandrevba, agradeço o código mas não é bem isso. Os valores no intervalo, são previamente informados em ordem crescente e o código "pega" esses valores e embaralha, deixa fora de qualquer ordem, mas sempre utilizando os números previamente informados.
Grato

dimorais, não tenho a versão do excel aqui no serviço indicado nestes links, então de uma olhada se é isto o que quer, se servir é só utilizar o gravador de Macros para criar uma rotina em VBA.

sort randomly cells select

http://www.extendoffice.com/product/kut ... domly.html

http://www.extendoffice.com/documents/e ... domly.html

http://www.extendoffice.com/documents/e ... -cell.html

http://www.get-digital-help.com/2010/10 ... -in-excel/

[]s

dimorais, se ainda não chegou a ver e resolver sua questão, a rotina Sub SelectRandomEntries() postada no link abaixo, faz exatamente o que quer, Randomiza os numeros aleatoriamente.

http://stackoverflow.com/questions/1704 ... s-the-same

Faça os testes e qq coisa retorne.

[]s

Bom dia
Agradeço a colaboração do Alexandrevba e Mauro Coutinho.