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