17 lines
425 B
Text
17 lines
425 B
Text
|
Sub Copysheet()
|
||
|
|
Dim i As Integer
|
||
|
|
Dim p As Integer
|
||
|
|
On Error GoTo out
|
||
|
|
i = InputBox("Hoeveel?", "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 "geanuleerd"
|
||
|
|
Application.ScreenUpdating = True
|
||
|
|
End Sub
|