Copy Sheet1 30 times in a workbook

[Stephen_IV]

Can someone please help me, does anyone have any code that will copy Sheet1 and make 30 copies or 30 tabs of it? Thanks in advance!, FYI we are using them for different experiments and need to to tag each one differently!

 

[baitmaster]

for i = 1 to 29
    Sheets("Sheet1").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
next i

 

[Stephen_IV]

baitmaster,

Works perfect. Thanks again!