Working with Panes
Sub pane() With ActiveWindow .ViewType = ppViewSlide .Panes(1).Activate End With End Sub