Getting Expected End Sub error.. No Reason!

Hi, PatCell,

comment out the line

Sub Mail_Range()

to read the beginning of the procedure like

Private Sub CommandButton2_Click()

''Sub Mail_Range()
'Working in Excel 2000-2013
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
    Dim Source As Range
    Dim Dest As Workbook
'more code here

Ciao,
Holger