Save worksheet as new macro-enabled Workbook

[tlc53]

Hi,

I nearly have this working. I want sheet 12 (called Journal) to be copied and saved into a new macro-enabled workbook. It's getting stuck at the save part, saying "The following features cannot be saved in macro-free workbooks: VB project"

Sub New_Journal()
     Dim wb As Workbook
    Set wb = Workbooks.Add
    ThisWorkbook.Sheets("Journal").Copy Before:=wb.Sheets(1)
    wb.SaveAs "C:\Users\Andrew\Documents\JournalNEW.xlsm"
End Sub

Can someone please tell me where I am going wrong? Thanks!

 

[rahulk]

Thanks Dante. I'm obviously doing something strange..

TESTJNL.xlsm

Hi tlc53,
I just figured out the problem u are facing, the button is still referenced to the original sheet right!
it is because you are using form control button, use ActiveX control button, and your problem is solved