Mailing Multiple Sheets as attachements... with a twist

[thechancellor]

Hey guys,

Been at this for a while trying to use bits and pieces of code from other templates. No luck so far.

http://www.rondebruin.nl/win/s1/outlook/amail3.htm

In the link above is a particular function that I need to use. Everything works fine, but I'd like an additional function to be added.

If you could take a look at the .Sheets(Array("Sheet1", "Sheet3")).Copy line... You'll notice that I can choose which sheets to be mailed as an attachment. What I'd like to be able to do is select the worksheets by name based on a value in a cell.

For instance, if I have the word "Budgets" typed in A1. I'd like to be able to send the worksheet titled "Budgets" as an attachment in the email. If I happen to change that value in A1, I'd like for the attachment to change when I run the Macros. I hope this makes sense.

Would anyone be so kind as to help me out?

[xladept]

Maybe:

.Sheets(Array(CStr(Range("A1")),"Sheet1", "Sheet3")).Copy

[thechancellor]

Annnnd that's the one! Thank you very much for your fast reply. This worked perfectly. Consider this solved.

[xladept]

You're welcome!