Random List Of Names rquired

[Razor147]

I have a list of 147 names in a column and when I run the following VBA code I get another list of 80 random names which is what I want, but I would like the names to change every time I run the macro. At the moment the random names list stays the same. Could anyone please help me. Sub Random_Name()
Dim Rng As Range
Dim Cell As Range
Dim rNum, gName, DupYN
Set Rng = Range("C2:C81")
Rng.ClearContents
For Each Cell In Rng
here:
rNum = Int(146 * Rnd + 1)
gName = Application.VLookup(rNum, Range("A2:B146"), 2, False)
DupYN = Application.WorksheetFunction. _
CountIf(Rng, gName)
If DupYN = 1 Or Cell.Value = gName Then
GoTo here
Else
Cell.Value = gName
End If
Next Cell
End Sub

 

[kevin lazell]

hi razor
not sure try changing
goto here
to
goto here:

kevin

 

[northwolves]

Add "randomize" before line "For Each Cell In Rng"

 

[northwolves]

Or try the following macro:

Sub Random_Name()
[c2:c146] = [a2:a146].Value
[d2:d146] = "=rand()"
[c2:d146].Sort [d2]
[c82:c146,d2:d146] = ""
End Sub

 

[Razor147]

Thanks guys for all your help, I will give this a go and see where I get too.