VBA Split mutiltable to another sheet in new workbook

Hi All,

I have file DATA.xlsm with table in sheet(MAIN), table have 4 data items

I want macro ro do that:
1. Create new workbook with file name as cell(B1) in DATA.xlsm. For examble: 201709.xlsx
2. For each data item add new sheet in 201709.xlsx and sheetname as the Item name, examble: sheet(mucdich)

Plz see my file attack file, thanks in advanced./.

Try

Please Login or Register  to view this content.

Thanks Jindon, your code worked

A small problem that if file name "201709.xlsx" already in this folder, I choosen "No replace it". The's a mistake this line:

Please Login or Register  to view this content.

The mesbox: Method Saveas of Object_workbook failed.

How to Invisible mesbox when I choose "No replace it"

If you want to replace it

Please Login or Register  to view this content.

Originally Posted by jindon

If you want to replace it

Please Login or Register  to view this content.

THanks, this's perfect code.

Could you explan some meanings of this code for me? I'm beginer with excel

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Do a step debug and read the msgbox that will show you the details.