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
|