Questo è il codice:
codice:
REM  *****  BASIC  *****
Option VBASupport 1

Sub lavoratore()
    FNomi = "Sorgente"      '<<<<< Foglio con i nominativi
    FEstraz = "Estratti"    '<<<<< Foglio per le estrazioni
    Sheets(FNomi).Select
    TotNomi = Range("A65536").End(xlUp).Row - Range("Inizio").Row + 1
    Sheets(FEstraz).Select
    Range("A:B").ClearContents
    For I = 1 To 5/100*TotNomi
        AncoRand:
        NumRand = Int((TotNomi) * Rnd)
        If Application.WorksheetFunction.CountIf(Range("A1:A1000"), NumRand) > 0 Then GoTo AncoRand
        Range("A65536").End(xlUp).Offset(1, 0).Value = NumRand
        Range("A65536").End(xlUp).Offset(3, 1).Value = Range("Inizio").Offset(NumRand, 0).Value
    Next I
End Sub