expected end sub

[harrison867]

hi all, i have the following code to peform creating a pdf, then sending it to via email to someone, but i get an 'expected sub end' error messge! help please

Private Sub CommandButton1_Click()
Sub DoALLsingle()
Dim tempPDFFileName, tempPSFileName, tempPDFRawFileName As String, mypdfDist As New PdfDistiller, _
 i As Integer, Mail_Object, Email_Subject, o As Variant
    tempPDFRawFileName = "F:\*******sF&B\MattHarrison\christmas\xmas2015" & ActiveWorkbook.Name ' Change File Path to suit
    tempPSFileName = tempPDFRawFileName & ".ps"
    tempPDFFileName = tempPDFRawFileName & ".pdf"
    
    ActiveSheet.PrintOut Copies:=1, preview:=False, ActivePrinter:="Adobe PDF", _
        printtofile:=True, Collate:=True, prtofilename:=tempPSFileName
    mypdfDist.FileToPDF tempPSFileName, tempPDFFileName, "bookings calendar"
     Kill tempPSFileName
Set mypdfDist = Nothing
'************End of PDF section*************
'************Start of emailing code*********
    Set Mail_Object = CreateObject("Outlook.Application")
        With Mail_Object.CreateItem(o)
            .Subject = "TEST" ' CHANGE TO SUIT
            .To = "" 'CHANGE TO SUIT
            .Body = "SEE ATTACHMENT" & Chr(13) & Chr(13) & "Regards," & Chr(13) & "Matt." & Chr(13) & "YOUR ADDRESS." 'Change comments to suit
            .Attachments.Add tempPDFFileName
            .Send
    End With
        MsgBox "E-mail successfully sent", 64
        Application.DisplayAlerts = False
Set Mail_Object = Nothing
End Sub
End Sub

 

[mole999]

do you think it might be

Private Sub CommandButton1_Click()
Sub DoALLsingle()
End Sub
End Sub

you can call a sub but you can't nest it

 

[harrison867]

what do you mean nest it?

 

[mole999]

you have a sub, inside a sub
If Sub DoALLsingle() is something (another sub) then you need to change it to DoALLsingle or CALL DoALLsingle then the programme will step out to the other sub, run that and come back just after the call