Não Repetir Números Aleatórios

Caros,

Tentei sem sucesso fazer uma macro para sorteio de Bingo . A mesma tem que fazer o seguinte:

- Gerar um número aleatório entre 1 e 75;
- A medida que os números forem saindo os mesmos não podem sair mais;
- Uma opção para voltar para o início caso seja necessário iniciar com todos os números novamente.

Tentei vencer esse desafio mas não conheço quase nada de VBA, espero que alguem possa nos ajudar a entender como pode ser feito iso.

desde já agradeço a atenção de todos

Alessandro

Boa noite!!

Veja se isso te ajuda

Sub Sorteio()
Dim Vetor()
Dim Qt As Long
Dim i As Long
Dim n As Long
Dim Max As Long

Columns("A").Clear
Qt = [C1].Value
Max = [C2].Value
If Qt > Max Then
MsgBox "O valor da célula C1 não pode ser maior que o da célula C2!"
Exit Sub
End If
ReDim Vetor(Max)
For i = 1 To Max
Vetor(i) = i
Next

For i = 1 To Qt
n = Int(Rnd * (Max - i + 1)) + 1
Vetor(0) = Vetor(n + i - 1)
Vetor(n + i - 1) = Vetor(i)
Vetor(i) = Vetor(0)
Cells(i, 1).Value = Vetor(i)
Next
End Sub

Att...