Hello, When I send this workbook the Macros are not coming along with it anymore. It worked fine in the old Excel (we just got 2007). It looks like its being sent as an "xlsx" and should be "xlsm". Is there a way to modify this to be sent so the macros stay attached? SendWorkbook: ThisWorkbook.ActiveSheet.Copy ActiveWorkbook.SendMail _ Recipients:=strRecipient, _ Subject:=strSubject, _ returnreceipt:=False ActiveWorkbook.Close savechanges:=False GoTo NormalExit ErrorExit: MsgBox (strErrMsg) NormalExit:

If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.

Sending workbook is not working in Excel 2007

Thread starter Slomaro2000
Start date Apr 13, 2011

Slomaro2000

Board Regular

Apr 13, 2011

Hello,
When I send this workbook the Macros are not coming along with it anymore. It worked fine in the old Excel (we just got 2007). It looks like its being sent as an "xlsx" and should be "xlsm".

Is there a way to modify this to be sent so the macros stay attached?

Code:

SendWorkbook:
    ThisWorkbook.ActiveSheet.Copy
    ActiveWorkbook.SendMail _
        Recipients:=strRecipient, _
        Subject:=strSubject, _
        returnreceipt:=False
    ActiveWorkbook.Close savechanges:=False
    
    GoTo NormalExit
    
ErrorExit:
    MsgBox (strErrMsg)
NormalExit: