VBA Create a Copy of Sheet Multiple Times

[unknownymous]

Hi Guys,

I was wondering if you could help me on this. I have this Sheet with tab name "All Region" which is a formatted list. I want to create 8 copies onto the same workbook and just rename it as follows:

1. Germany
2. France
3. UK
4. US
5. Ireland
6. Canada
7. Other EU
8. Asia

Any help will be much appreciated.

 

[Michael M]

Maybe this, assuming your list in cells "A1:A8"

Sub MM1()
For Each cell In Range("A1:A8")
   Sheets.Add(After:=Sheets(Sheets.Count)).Name = cell.Value
Next cell
End Sub

 

[My Aswer Is This]

Assuming you want to make copies of a sheet named:
All Region

And name these sheet using the values in Range("A1:A8")

Try this:

Sub Create_a_Copy_of_Sheet_Multiple_Times()
'Modified  1/24/2019  1:48:11 AM  EST
For Each cell In Range("A1:A8")
    Sheets("All Region").Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = cell.Value
Next cell
End Sub

 

[unknownymous]

Thank you!

 

[My Aswer Is This]

Glad we were able to help you.
Come back here to Mr. Excel next time you need additional assistance.

Thank you!