Copy One Sheet Multiple Times

Copy One Sheet Multiple Times:

 For various reasons I produce a report in a new workbook that contains one worksheet with the required data.

My question is can I copy this worksheet multiple times quickly without going through the Click, Ctrl, Drag thing (or Move and Copy.. thing) on lots of occassions?

Here is the macro for this

 Sub Copysheet()



Dim i As Integer

Dim p As Integer

On Error GoTo out

i = InputBox("How many copies do you what?", "Making Copies")



Application.ScreenUpdating = False

p = 0

Do

ActiveSheet.Copy After:=Sheets(Sheets.Count)

p = p + 1

Loop Until p = i

Application.ScreenUpdating = True

Exit Sub

out:

MsgBox "copy was cancelled"

Application.ScreenUpdating = True

End Sub

 

 You will be asked with how many copies do you want?
Enter number of copies you wish.

 

• Tweet
• Share
• Share
• Share
• Share

About Admin MC3

This is dummy text. It is not meant to be read. Accordingly, it is difficult to figure out when to end it. But then, this is dummy text. It is not meant to be read. Period.

Related Post