macro willekeurige unieke selectie

[dopoog]

Goedendag,

Ik heb onderstaande macro van internet gehaald. Deze macro zorgt er voor dat er uit de geselecteerde cellen een x aantal selecties wordt gemaakt. Maar kan iemand uitleggen hoe ik in onderstaande code het volgende kan toevoegen?

- Bij invullen aantal_vakjes, groter dan de range (dus bijv. 40 invullen, terwijl er 38 velden zijn) dat hij dan alle 38 velden inkleurt. En geen foutmelding geeft?

Sub random_vakjes_kleuren()
    Dim aantal_vakjes, teller, l, c, cel
    
    Range("A1:A38").Select
    
    Randomize

    aantal_vakjes = 38

    With Selection
        .Interior.ColorIndex = xlNone
        teller = 1
        
        Do Until teller > aantal_vakjes
            c = Int(Rnd * .Cells.Count) + 1
            If InStr(1, l, "|c" & c & "|") = 0 Then
                l = l & "|c" & c & "|,"
                teller = teller + 1
            End If
        Loop
        
        teller = 0
        For Each cel In .Cells
        teller = teller + 1
            If InStr(1, l, "|c" & teller & "|", vbTextCompare) > 0 Then cel.Interior.ColorIndex = 46
        Next cel

    End With
End Sub