Hi John

I've made the below code, because I need a button that toggles the slide (speaker) notes. The text that's below slides, which is in the Notes layout too.

The aim was to have a toggle button, like the default one, to swap between ViewNotesPage and ViewNormal. It's for Office 2013. My VBA is totally wrong but hopefully you can help? I'm sure others would find this helpful too. Thank you


Sub EnterSpeakerNotes()
With ActiveWindow
If .ActivePane.ViewType = ppViewNotesPage Then
.Panes(3).Activate
End If
End With
With ActiveWindow
If .ActivePane.ViewType = ppViewNormal Then
.Panes(3).Activate
End If
End With
End Sub