Транспонирование массива работает с массивом (10, 1), а не с массивом (1, 10)

Question

Я пытаюсь отправить электронную почту на несколько адресов через массив на .To, читал адреса электронной почты в диапазоне P2: Z2, и код не работал, я изменил диапазон на M1: M10, и код работал нормально, какое изменение я должен сделать, чтобы работать в порядке (1, 10)?

Sub EnvioEmail()

    Range("B4:K34").ExportAsFixedFormat xlTypePDF, Sheets("Aviso").TextBox1.Text & "\" & Sheets("Aviso").Range("P3").Value

    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    Dim EmailTo As String

    EmailTo = Join(Application.Transpose(Sheets("Aviso").Range("M1:M10").Value), ";")

    With OutMail
        .To = EmailTo 
        .CC = ""
        .BCC = ""
        .Subject = "Aviso de Cobrança de Aluguel e Encargos " & Sheets("Aviso").Range("P3").Text
        .Body = "Prezados, " & _
        vbNewLine & vbNewLine & _
        "Segue em anexo o aviso de cobrança." & _
        vbNewLine & vbNewLine & _
        "Atenciosamente, "
        .Attachments.Add Sheets("Aviso").TextBox1.Text & "\" & Sheets("Aviso").Range("P3").Value & ".pdf"
        .Display
    End With

End Sub