Udtrække numre til amerikansk lotteri

Kan du bruge lidt kode i VBA?
Hvordan skal de udtrukne tal vises? Et ad gangen eller alle på een gang i et ark - eller??

jeg kan intet vba, men tallene skal vises på en gang i en kolonne

Her er koden:
Rem Koden kopieres ind ark1 i VBA (Alt+F11)
Rem Sæt markøren i VBA/Ark1 + tryk F5

ELLERS send en mail til pb@supertekst-it.dk - så sender jeg filen.

Rem =============KODE=========================

Dim tabel(5000) As Boolean, ræk
Sub trækNr()
Dim xx
    nulstil
    ræk = 1
   
    Randomize
   
    For tal = 1 To 250
        Do
            xx = Int((5000 * Rnd) + 1)
        Loop While tabel(xx) = True
       
        tabel(xx) = True
        Cells(ræk, 1) = xx
        ræk = ræk + 1
    Next tal

End Sub
Private Sub nulstil()
    For f = 0 To 5000
        tabel(f) = False
    Next f
    Range("A:A").Clear
End Sub

Tusind tak
Kan det evt laves så rutinen kan køres i regnearket i stedet for i VBA-modulet
send venligst et svar, så du kan få dine fortjente points

Selv tak - koden kører i VBA-modulet, der hører til regnearket..
Evt. opret en knap, der aktivere koden.

Hvis du vil have hjælp til dette - så send en mail - så returnerer jeg hele filen.

Men du får et svar nu......

send filen til bpt@esenet.dk