Hi aal,

I encourage posters to give feedback by writing back after receiving
the advice so that we can know whether the solution worked or not
etc.  Even if the reply is just "I gave up because I couldn't get it
to work".  I say this because I tracked down the post you got the
sample from (I think its this
http://groups.google.com.au/group/microsoft.public.word.vba.general/browse_threa
d/thread/d9df65dce7314e9f/a65f4e9c704c40c7?lnk=gst&q=.Start+%3D+.GoTo(wdGoToPage
%2C+wdGoToAbsolute%2C+%2C+Page1).Start#a65f4e9c704c40c7
).

That response correctly indicates a caveat that "Unless your pages are
separate by manual page breaks this is likely to go wrong."

However  the solution is incorrect because it attempts to modify the
Activedocument'e end range (it cant be modified!.)
That cause the .copy to fail with error: "This Method or property is
not available beause no text is selected"

The following modified code (although not elegant) will do what you
want.
Let us know if it does.

Cheers
TonyS.

   Page1 = InputBox("Please Enter First Page Number")
   Page2 = InputBox("Please Enter Last Page Number")
   Count = InputBox("Please Enter Number of times to duplicate")
   Dim thisRng As Range

   Set thisRng = ActiveDocument.Range
   With ActiveDocument.Range

       .GoTo wdGoToPage, wdGoToAbsolute, , Page1  '.Start
       thisRng.Start = .Start
       .GoTo wdGoToPage, wdGoToAbsolute, , Page2 + 1 '.Start
       'Note; the following line could also be "= .start" since the
location it goes to is a selection point
       thisRng.End = .End
       thisRng.Select
       thisRng.Copy
   End With
   With ActiveDocument.Range
       For I = 1 To Count
           .Collapse wdCollapseEnd
           .Paste
       Next
   End With