Display Email in Outlook via Excel

[cstimart]

Hello,

I have code in Excel 2016 that creates and displays multiple emails when the code runs. However, these emails are displayed 1 by 1, as they are created. How can I create all of the emails w/o displaying them until the end of the code, then display them all at once?

'EXAMPLE
For x = 1 to 100
    With CreateObject("Outlook.Application").CreateItem(olMailItem)
        .To="Someone" & x & "@Someplace.com
        .Display
    End with
Next x

Thanks in advance!