Marco voor loting aanpassen (1 voor 1 ipv alles in 1x)

Hi experts,

Ik heb onlangs een excelbestandje inclusief een stukje vba gevonden waarmee ik een loting kan doen.
Nu zorgt de knop ervoor dat de loting in 1 x wordt uitgevoerd.
Ik zou graag willen dat dit 1 voor 1 gebeurd, maar wanneer ik zeg maar voor "Loop Until k = lng" een msg box plaats dan kiest hij random 1 van de namen. Vervolgens check hij of deze al geloot is. Zo ja dan kiest hij weer random enz.. je kan je voorstellen dat dit bij de laatste heeeellll lang duurt aangezien dan 15 van de 16 namen al geloot zijn.

Onderstaand heb ik de code volledig overgetypt omdat het me ffkes op mijn mobiel niet lukt een bestand te posten.
Ik hoop dat jullie de aanpassingen kunnen doen zodat hij soepel door op een volgende knop te klikken 1 voor 1 de namen invult.

Sub loting()
Dim x&, k&, c&, str As String, lng As Long
lng = Range("Namen").Count
ReDim b(lng-1) As Boolean
c = 1
Do
x = Int(Rnd * (lng))
If Not b(x) Then
k = k + 1: b(x) = True
c = c + 1: Cells(c, 2) = Application.Index(Range("Namen"), x + 1)
End If
Loop Until k = lng
End Sub

of zoiets

Echt helemaal super beide. Bedankt voor jullie hulp het is volledig opgelost