From bcd8e3c5d0518dc618f76ee4ca0433b1f01e1746 Mon Sep 17 00:00:00 2001
From: Mathijs Lermer <mathijs@lermer.nl>
Date: Wed, 3 Mar 2021 13:43:45 +0100
Subject: [PATCH] 'Excel-VBA/Paginas copieren.vba' toevoegen

---
 Excel-VBA/Paginas copieren.vba | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 Excel-VBA/Paginas copieren.vba

diff --git a/Excel-VBA/Paginas copieren.vba b/Excel-VBA/Paginas copieren.vba
new file mode 100644
index 0000000..b303ed4
--- /dev/null
+++ b/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
\ No newline at end of file