You have embedded a sub within a sub

Private Sub CommandButton1_Click()
Sub Send_PDF_As_Attachment()

and similarly at the end you have

End Sub
End Sub

Remove one of the End Subs

and the line

Sub Send_PDF_As_Attachment()

and provided the code is associated with the button you should be getting somewhere.

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com