Hi,
I have this code that randomly picks a different name from a list.
Sub CommandButton1_Click()
Dim lrcd As Long
SendKeys "%^{F9}"
Range("H31").Copy
'Range("C2:C7").PasteSpecial xlPasteValues
lrcd = Sheets("Sheet1").Range("E" & Rows.Count).End(xlUp).Row
Sheets("Sheet1").Cells(lrcd +...