Sub CommentsPaneOLD()
' Paul Beverley - Version 08.11.17
' Open the comments pane

If (ActiveDocument.Comments.Count > 0) Then
  ActiveDocument.ActiveWindow.View.SplitSpecial = wdPaneComments
Else
  Beep
  MsgBox "No comments in this file."
End If
End Sub