Macro para seleccionar una muestra aleatoriamente

Buenas,

Anteriormente me habían ayudado con una macro que envía un correo desde outlook a destinatarios definidos en celdas en excel cuando se abría el archivo y si alguna condición se daba, en este caso una fecha vencida, ahora quisiera saber si me pueden ayudar agregando a esta macro que igualmente al abrirse el file de excel si tengo una columna con números de 1 a 20, me seleccione una muestra de 3 aleatoriamente, por ejemplo "8,12,19" y automáticamente envíe el correo a los destinatarios asignados en las celdas mencionadas.

Sera posible,

Les adjunto la macro con la que me habían ayudado y que me ha funcionado a la perfección,

Gracias,

Private Sub Workbook_Open()
'envía mail
'Por.Dam
Sheets("Task Status").Select
ufila = Range("B" & Rows.Count).End(xlUp).Row
For i = 4 To ufila
If Cells(i, 7) <= Cells(i, 8) Then
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.createitem(olmailitem)
para = Cells(i, 10) & ";" & Cells(i, 11) & ";" & Cells(i, 12)
parte2.to = para 'Destinatarios
'parte2.CC = "" 'Con copia
parte2.Subject = "Task Status" '"Asunto"
'"Cuerpo del mensaje"
parte2.body = "Señ@r " & Cells(i, 5) & _
" el trabajo " & Cells(i, 2) & _
" le fue asignado el día " & Cells(i, 6) & _
" y actualmente se encuentra " & Cells(i, 8) & _
". Favor indicar la razón de esta situación."
'parte2.Attachments.Add Ruta & Archivo
parte2.send 'El correo se envía en automático
'parte2.display 'El correo se muestra
End If
Next
End Sub