does anyone know how to get the email function to email a recipient whos
address is in a cell (D21) ?
eg-- how do i get this to work:-

With Dest
.SaveAs TempFilePath & TempFileName & FileExtStr,
FileFormat:=FileFormatNum
On Error Resume Next
.SendMail Sheets("Options").Range("D21").Value, "EPB"
On Error GoTo 0
.Close SaveChanges:=False
End With