The below file contains a macro that works, although it does not complete. The file contains about 45 ranges that are all supposed to be seperated into different emails as an attachment and send out to the email address to columns over from the range in column N. It works perfectly, however, it stops after 30 emails, probably because of a memory issue. I cannot figure out how to get the macro to finish.

When I use .Display, instead of .Send, and watch it closely, it seems like the first 30 send out, but then it cannot keep up for the rest, so a email draft pops up with the correct range as an attachment, but there is no email address in the To: field for the last 15 or so.

I need to find a way to have this macro run for a possible 400 emails in my final file.

I was thinking that maybe I could have the macro fun the first 30 emails, loop and send the next 30, and so on..., but I my experience with VBA is very slim.

If it helps, each range can be made into a set number of rows. For example, the first range could be in 1-50, skip a row, 2nd range in 52-101 and so on.

Email Macro 40 messages.xlsm