Sub Test() Dim d As Document Set d = Documents(1) MsgBox "Current page is " & d.ActivePage.Index & " (" & d.ActivePage.Name & ")"End Sub