Macro to send individual tabs from a worksheet to different email address based on in

I create a master spreadsheet each week that contains anywhere from 1 to 40 tabs. Each tab contains the same header and a varying number of rows. The text in column D should determine the correct email address for the individual tab to be sent to (in an attached excel file). For example, if the data on the second tab in column D =”SupplierA”, then that tab should be send to “[email protected]”. If the third tab has “SupplierB” listed in column D, it should be sent to [email protected]. There won’t always been the same group of suppliers each week. So, if –for example- “SupplierP” (that is supposed to be sent to [email protected]) is not listed on one of the tabs, I would need the macro to just move on, without it failing.

Does anyone know of a solution for this scenario? Any help would be greatly appreciated!!! Also, don’t hesitate to ask if I need to clarify anything…

First of all- thank you SO much again. I can't tell you how much I appreciate this.

My main objective with this is to 1) create a master file with each of the suppliers (from the “2010-08.12 MASTER FILE_SAMPLE” that I’ve attached) separated out onto individual tabs for reference purposes and 2) have each on the tabs sent through Outlook to the corresponding contact for the individual supplier. The list of contacts for each supplier would be compiled as a list like the “supplier contact list” that I’ve attached). The file that I would like send to the supplier for Acclaim- for example- would look like “Acclaim_SAMPLE” file I attached.

I originally thought that the macro you showed me before:
'Summary: Based on selected column, data is filtered to individual sheets
' Creates sheets and sorts sheets alphabetically in workbook
' 6/10/2010 - added check to abort if only one value in vCol
' 7/22/2000 - added ability to parse numeric values consistently

was working beautifully. However, when I tried this morning, I kept running into an error. The macro worked until the supplier “Bender Consulting Services, In”
This was the portion of the macro that the debugger indicated was causing the issue:

If Not Evaluate("=ISREF('" & MyArr(Itm) & "'!A1)") Then 'create sheet if needed
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = MyArr(Itm) &

I’m not sure if it’s best to go at this with 2 separate macro (especially since I can’t get the first one to work), or just one… What do you recommend?

Ahh... thank you. That worked. How about the rest? Please let me know if you have trouble viewing the worksheets I posted.

Just checking back, have you had a chance to look at the spreadsheets I posted?

Earlier you said "Post up a sample workbook with this suppliers list already started and two or three sample data sheets. From that I can construct a quick macro for you". I have since posted them- please let me know if you have troble viewing them and I'll try posting again.

The macro that I was having the error message for was just the macro to parse info on the first tab to separate tabs based on the info in the forth column. I need help with a macro that can send the individual tabs via Outlook to specified recipients.