'Excel-VBA/Paginas copieren.vba' toevoegen

Excel-VBA/Paginas copieren.vba

@@ -0,0 +1,17 @@
+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