Sub MailActiveSheet()
Dim wPathFile As String
wPathFile = ThisWorkbook.Path & "\template.pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=wPathFile, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
With CreateObject("Outlook.Application").CreateItem(0)
.To = ""
.Subject = ActiveSheet.Range("A1").Value
.Body = ""
.Attachments.Add wPathFile
.Display
End With
End Sub