Random Pick

[hopelessvolunteer]

Can someone please help me with this.

I have a list of name with a header row in column A, could be up to 50 names. I would like a macro that would randomly pick one name from the column.

I will have 4 worksheets in the work book, and I want to be able to run the same macro on each worksheet, but only when I tell it to.

Thanks so much in advance.

 

[Jonmo1]

This should give you a start

Sub test()
LR = Cells(Rows.Count, "A").End(xlUp).Row

Dim MyValue
Randomize
MyValue = Int((LR * Rnd) + 1)
MsgBox Cells(MyValue, "A")
End Sub

 

[hopelessvolunteer]

Thanks, looks like that one will work.

But, when I try to run it, I get an error message that says: Microsoft Visual Basic - Out of Memory.

Any suggestions on how to fix this?

Thanks