Tarea para enviar correos desde excel. A continuación se muestra la columna de ejemplo. ¿Cómo puedo obtener el valor de correo electrónico del bucle? Gracias

Aquí está mi código:

   Dim rng As Range
   Dim row As Range
   Dim cell As Range
   Dim mydate As Date
   Dim myDiff As Long


Set rng = Range("E5:E17")
Set rng2 = Range("F5:F17")
Dim cell2 As Range

Dim i As Integer
i = 5

For Each row In rng.Rows
  For Each cell In row.Cells

MsgBox cell.Value
mydate = cell.Value
myDiff = DateDiff("d", Date, mydate)

Set rng2 = Range("F" & i)
For Each cell2 In rng2
 MsgBox cell2.Value
Next cell2


If myDiff > -8 And myDiff < 8 Then
  aEmail.Send
End If

i = i + 1
  Next cell
Next row