Steven,

Glad to help!

steve

"Steven Cheng" wrote in message
...
This is perfect thanks.
-----Original Message-----
Steven,

I think this might be what you want: (amend to your
needs)

Dim eml as string, rng as Range, cel as Range

subj = "Today's output"

Set rng = Sheets("Sheet1").Range("A1:A5")

For each cel in rng
eml = cel.Text
ActiveWorkbook.SendMail _
Recipients:=eml, _
Subject:=subj, ReturnReceipt:=True
Next

set rng = Nothing

steve
"Steven Cheng" wrote in message
...
I have a spreadsheet that is currently setup with areas
that are noncontiguous and that need to be put to a
spreadsheet and emailed.

I can code the extrapolation of the data but how about
the
coding to get the emails to go out to a predesignated
email address. I have the email addresses setup right
now
under a range. I don't want to have to press the send
key
either.

I am very lazy as there are many individuals that the
reports will be going to and they are all different but
pulling from the same file.

Steven


.