VBA Deleting Empty Lines from Email Body

Hi,

I've got an email macro that pulls items from my workbook and generates an email requesting that particular information. In the macro i've got it set to create a set amount of blank spaces, roughly 10, in case we every need to request that many items. However, when I'm requesting only say 2 or 3 items, the blank spaces leave a large gap between the body text and the closing statement in the email. I'm wondering if there's a code I could include that will delete empty lines in the text body of the email if no values are assigned to them. Heres my code as of now, I'm referring to the multiple "& vbNewLine" entries. Thanks!

Please Login or Register  to view this content.