Emailing disjoint cells

L

Lance Roberts

Howdy,

I've created an email button on an Excel 2003 spreadsheet to email a few
cells when pressed, using the following code I got from the KB:

'Select the range of cells on the active worksheet
ActiveSheet.Range("NeededHAGO", "NeededNAPTHA").Select

'Show the envelope on the ActiveWorkbook
ActiveWorkbook.EnvelopeVisible = True

'Set the optional introduction field that adds
'some header text to the email body. It also sets
'the To and Subject lines. Finally the message is sent.
With ActiveSheet.MailEnvelope
.Introduction = "GVEA Fuel Needs:"
.Item.To = "LJRoberts(at)gvea.com"
.Item.Subject = "GVEA Fuel Needs"
.Item.Send
End With

It works great, except that those ranges are disjoint and there are a few
cells in between them that are also being sent. I've tried to use
Application.Union in various ways, but when those ways did work, they ended
up sending the whole sheet. Any ideas?
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top