E-mail aanmaken via VB en regel aanvullen met inhoud cel

[Aanbod]

Hallo,

Ik heb het volgende aangemaakt:

Sub mail_naar_leiders()

    ActiveSheet.ExportAsFixedFormat 0, ThisWorkbook.Path & "\" & ActiveSheet.Name & ".pdf"
    Sheets("Leiders").ExportAsFixedFormat 0, ThisWorkbook.Path & "\" & "Leiders" & ".pdf"
        With CreateObject("Outlook.Application").CreateItem(0)
        '.To = Join([transpose(H25:H26)], ";")
        .Bcc = Join([transpose(H25:H26)], ";")
        [COLOR="#0000FF"].Subject = "Seizoen" & Join([transpose(E3)])[/COLOR]
       .Body = "Hallo, " & vbNewLine & vbNewLine & "Hierbij ontvangen jullie het overzicht voor de komende wedstrijden. Ook de planning voor het wassen en rijden is ingepland." & vbNewLine & vbNewLine & " Groet Andre Klein Starink"
        .Attachments.Add ThisWorkbook.Path & "\" & ActiveSheet.Name & ".pdf"
        .Attachments.Add ThisWorkbook.Path & "\" & "Leiders" & ".pdf"
        .Display   'of gebruik .Send
    End With
    Kill ThisWorkbook.Path & "\" & ActiveSheet.Name & ".pdf"
    Kill ThisWorkbook.Path & "\" & "Leiders" & ".pdf"

End Sub

Nu zou ik graag willen (in blauw) dat ik het onderwerp, deels bekend, maar aan wil vullen met een cel E3. Kan dit?
Nu is cel E3 wel een samengesteld vanuit 4 cellen 1 cel gemaakt

 

[VenA]

Join([transpose(E3)]) vervangen in .RANGE("E3") ?

 

[Thankyou]

@ VenA

Mijn kennis van VBA is niet zo groot, zeg maar bijna 0.
Maar had die .RANGE("E3") niet Sheets("Leiders").Range("E3") of ActiveSheet.range("E3") moeten zijn?

Groet,

 

[Aanbod]

Hallo,

Bedankt voor jullie reacties.......

De oplossing is:

.Subject = "Seizoen" & ActiveSheet.range("E3")

Bedankt tot zover.


Groet

 

[VenA]

@Thankyou, je hebt gelijk. Maar de oplossing lag toch redelijk in de buurt Lezen, lezen en niet verwachten wat er staat:evil: op mij zelf.

 

[HSV]

Het puntje voor .Range("E3") doet je de das om V&A.
Range("E3") zonder punt was goed geweest, want die heeft altijd betrekking op het Activesheet.