Loop Through All Sheets and Combine Into One Email with Conditions

I gave it go and have only been able to produce four individual outlook emails, instead of a combined one you request. for whatever reason, one can't use a for loop inside the mail object. Your code does create the four emails, they just write one over the other. The only way I can envision solving this riddle, is to create a spreadsheet of the combined sheets and then load them with the RangetoHTML function. For the record, your code is clean and should by all appearance work as written. Maybe a guru can jump in here and resolve this further. Here is my version of the code.

Please Login or Register  to view this content.

Note, i reversed the original code to use only one version of RangetoHTML() instead of the multiples you had. That change was a good idea but it didn't appear to make a difference. My changes are in Module 1. For future reference, the items with < and > are considered html and are not allowed via this Excel Forum page display.