BODY1 = "" It keeps going and then finds no email address (at the bottom in the line "aEmail.Recipients.Add Cells(N, 6)") and then fails.         'Set Line 1 of Body - Greeting     Dim celProj As Range All the bouce back email with a suject as "RE: ...." user mailbox is full.... A rather drastic solution:Using Exchange Admin console, highlight the offending recipient, then choose "Clean Mailbox..." from the tools menu. Set wsPivot = Nothing Like answering that email. AN employee can be on multiple projects.             strBody = ""    'Start with zero length string for each email recipient     Dim wsPivot As Worksheet         .Cells(3, "B") = "Date" OK, OssieMac, This is fantastic.         Set rngUnique = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp)) It runs perfectly until it gets about half way through the list of employees. 1.             'below is for displaying email without sending All content on this website, including dictionary, thesaurus, literature, geography, and other reference data is for informational purposes only. It is supposed to send one email to each employee with all projects listed in the body. Similar culprit: “Does this make sense?” These are both questions commonly used to end emails that express big or new ideas.     wsUnique.Delete 'Delete unique list of email addresses worksheet Between starting this sentence and ending it, I actually checked it no less than three times just to make sure I didn’t miss a beat. She sent an email to loop in the staff about policy changes.     Set rngToFind = Nothing         .Columns("A:A").RemoveDuplicates Columns:=1, Header:=xlYes     'Remove the name "(Blank)" from the unique list Right click on the outlook Icon.                 BODY1 = BODY1 & vbLf & _         ' aEmail.Subject = "Your staffing for this week-- " & Cells(y - 1, 4)         Further to the header row not needing to be at the top row, I periodically freeze panes to allow 6 or so rows above the AutoFiltered data and in this area I place SubTotal formulas to return information from the filtered data and it never goes off the screen Please keep Sarah in the loop so she can continue to advise us on the legal ramifications. Informed and/or actively participating in something, such as an ongoing discussion or project, typically involving many people. then you should be able to replace BusinessName with a dummy name.     With wsCopy I can't follow your code to well, so here's just some ideas: I would move this "out" of the loop, perhaps to the beginning of the code. I temporary stop this looping by prohibit send and recieve feature on his account from Exchange Admin. Also please exercise your best judgment when posting in the forums--revealing personal information such as your e-mail address, telephone number, and address is not recommended.     This thread is locked.     On Error Resume Next     Dim wsCopy As Worksheet     Set wsUnique = Nothing You can then turn it off and it will stopthe forwarding because it turns off the out of office reply.Don't forget to get rid of your custom receipients. During her time there, she edited 5,000+ articles and learned more about email subject lines, resume tips, and cover letter opening lines than she could’ve imagined.