Modification required in attaching excel sheet in to an email

Hi Friends,

I am using the below VBA code to copy my excel sheet to attach in the outlook mail to send to an e mail id.

My problem is if any of the or non of the sheet is available in the workbook then the macro get's stopped.

Kindly help me with the modification to run the macro if a single sheet or entire sheet is not in the workbook also it should run and move to another command.
--------------------

Please Login or Register  to view this content.

--------------------

Regards,

Prabhu

Hi,

I think you should start by creating an array containing existing sheets in the workbook first and build on to your script from there. Try to integrate this in to your code:

Please Login or Register  to view this content.

Hope this helps

Post a copy of your spreadsheet and I can take a look.

Hi prabhubox,

I'm assuming that each sheet in the workbook you've posted is representing individual companies. I was going through your script and noticed that you may have been trying to send an email to companies who's data actually exists in the workbook. Here is what I've come up with. Let me know if it's in tune with what you're looking for.

Note:

The Script works as follows:
1) Generates a list of all sheet names and e-mail addresses located in Cell A1 of each sheet in to "UniqueList"
2) Checks for Sheets that have not been named and are still default of "Sheetx". It then asks you to correct the name or delete the sheet
3) It prompts you to send an email to each company whose sheet actually exists in the workbook.
4) If you've answered yes to Step 3, it will create attachments of each sheet in individual e-mails destined for their respective recipients.