I will try this presently I have a loop:
Do Until NextPage > TotalPages
Selection.GoTo What:=wdGoToPage, Which:=NextPage
Print Routine
Loop
However, your code:
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=x
Looks like a good idea.

Thanks for the response much appreciated.