Почему это создает две электронные письма на одну книгу?

Question

Я беру рабочую таблицу из основной рабочей книги и создаю отдельную рабочую книгу для каждой. Затем эти рабочие книги сохраняются в папке, а затем каждая рабочая книга добавляется в электронное письмо.Каждая рабочая тетрадь создает 2 электронных письма, но я не понимаю, почему из кода?

Sub MoveandSaveWorkBooks()


Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim wK As Worksheet

For Each wK In ThisWorkbook.Worksheets
    If wK.name = "Master Data" Then
    ElseIf wK.name = "Button" Then
    Else
    wK.Copy

    Selection.RowHeight = 84.75
    Cells.EntireColumn.AutoFit
    ActiveWorkbook.Password = UserInput
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & wK.name & ".xlsx"


    Dim OlApp As Object
    Dim NewMail As Object

    Set OlApp = CreateObject("Outlook.Application")
    Set NewMail = OlApp.CreateItem(0)

    On Error Resume Next
    With NewMail
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = ""
        .Body = "" 



    .Attachments.Add ActiveWorkbook.FullName
    .display   


    End With
    On Error GoTo 0

    Set NewMail = Nothing
    Set OlApp = Nothing

    ActiveWorkbook.Close True


End If
Next wK

Application.DisplayAlerts = True
Application.ScreenUpdating = True