Save a copy of current .xlsm file without closing the original

Dear All,

Essentially I need to copy the functionality of ;

ActiveWorkbook.Sheets.Copy

But also have the VBA of thisworkbook to be copied accross. I have tried several methods and searched online to no success.

I am happy to consider other methods, as long as the initial workbook is not closed.

Thanks.

Did you try to use ActiveWorkbook.SaveCopyAs method?