MsgBox "The selection is on page " & _ Selection.Information(wpsActiveEndPageNumber) & " of page " _ & Selection.Information(wpsNumberOfPagesInDocument)