Sheet Copy

[FMHasan]

How to make a sheet copying several time in same workbook? like same worksheet need 40 pcs copy

 

[My Aswer Is This]

Try this:

This script assumes we are making 20 copies of a sheet named "Master"
Modify to your needs.

Sub Copy_Sheet_Master()
'Modified 11/24/2021  10:50:12 PM  EST
Application.ScreenUpdating = False
Dim i As Long

    For i = 1 To 20
        Sheets("Master").Copy After:=Sheets(Sheets.Count): ActiveSheet.Name = "Master" & i
        Next
Application.ScreenUpdating = True
End Sub

 

[FMHasan]

Try this:

This script assumes we are making 20 copies of a sheet named "Master"
Modify to your needs.

Sub Copy_Sheet_Master()
'Modified 11/24/2021  10:50:12 PM  EST
Application.ScreenUpdating = False
Dim i As Long

    For i = 1 To 20
        Sheets("Master").Copy After:=Sheets(Sheets.Count): ActiveSheet.Name = "Master" & i
        Next
Application.ScreenUpdating = True
End Sub

Thank you so much. In where i have to put this code? If i put it in Immediate window , will it work? Actually i am not usual with VBA code.

 

[My Aswer Is This]

Normally users put this script in a Button on some other control.
Not in the immediate window. Create a Activex Command Button and put this script in the button.

'Modified 11/24/2021  10:50:12 PM  EST
Application.ScreenUpdating = False
Dim i As Long

    For i = 1 To 20
        Sheets("Master").Copy After:=Sheets(Sheets.Count): ActiveSheet.Name = "Master" & i
        Next
Application.ScreenUpdating = True

 

[My Aswer Is This]

I see you have asked other questions on this forum so how have you run those scripts?

 

[FMHasan]

I see you have asked other questions on this forum so how have you run those scripts?

I could not use that one.