VB,
COMMAND BUTTON,
PRINT ACTIVE SHEET TO PDF,
ADD NAME TO PDF FROM SPECIFIC CELL,
OPEN OUTLOOK 2010 NEW EMAIL,
ADD EMAIL ADDRESS FROM SPECIFIC CELL,
ADD PDF TO EMAIL AS ATTACHEMENT,
STOP SO THAT EMAIL CAN BE SENT AFTER REVIEW OF PDF ATTACHEMENT

Hi Everyone
If anyone can help me to streamline the above, I would appreciated it.
I copied the code from another VB programmer, but when I linked it to the command button, I get the error message.
Error Message.jpg

Here is the code where the error occurs.
Code.jpg

This is my first VB attempt, so I might have bit off more than I could chew!