Is there better code to copy and add sheets to a workbook?

[BBoydAnchor]

I'm trying to learn about the code generated from recorded macros and what code can be deleted. Below is code taken from a larger macro and I'm curious if there is a better process.

Let me explain in a little more detail about this one section. I'm exporting an inventory report from a database into Excel and the workbook has one tab with the name of "Inv Report". I need this sheet to be copied to a new tab. These tabs will be named "Compare" and "Before". Next is to add a new tab named "After" which will remain blank for now. The tabs will need to be ordered... Compare, After, Before.

Now the code works just fine the way it is and I can live with it. However, I'm in search of knowledge and to learn better ways of making Excel work.

Please Login or Register  to view this content.

[dangelor]

Save some typing using With/End With. Also, add a sheet...

Please Login or Register  to view this content.

[BBoydAnchor]

Thanks for your input, but I'm not clear on your response. As for save some typing, this was a recorded macro and so I did not type anything. I deleted code from this part of the macro that I determined was not needed.

The code you provided only appears to address part of my question. I did add it to my code where I thought it should go...

Please Login or Register  to view this content.

However, I received the following error message.

Run-time error '1004:
Method 'Add" of Object 'Sheets" failed

[royUK]

Try this

Please Login or Register  to view this content.

[BBoydAnchor]

Thank you RoyUK! The code works perfectly, but most importantly is that I'm learning.

Have a wonderful day!