This works for me
Sub DuplMultPg()
'https://www.msofficeforums.com/word-vba/53764-duplicate-macro-keeps-giving-syntax-error.html
Dim Pg As Long, Count As Long, i As Long
Pg = InputBox("Enter the Page to Duplicate")
Count = InputBox("Enter Number of times to duplicate")
With Selection
.GoTo wdGoToPage, wdGoToAbsolute, Pg
.Bookmarks("\Page").Range.Copy
For i = 1 To Count: .Paste: Next
End With
End Sub

Attached Files

DuplMultPg.txt (466 Bytes, 3 views)