Sub TrackingShowSwitcher()
' Paul Beverley - Version 23.02.11
' Toggle visibility of track changes

comm = ActiveWindow.View.ShowComments
inDel = ActiveDocument.ActiveWindow.View.ShowInsertionsAndDeletions

If comm = True And inDel = True Then
  ActiveDocument.ActiveWindow.View.ShowFormatChanges = False
  ActiveDocument.ActiveWindow.View.ShowInsertionsAndDeletions = False
  Exit Sub
End If
If inDel = False And comm = True Then
  ActiveDocument.ActiveWindow.View.ShowFormatChanges = False
  ActiveDocument.ActiveWindow.View.ShowInsertionsAndDeletions = False
  ActiveWindow.View.ShowComments = False
  Exit Sub
End If
ActiveDocument.ActiveWindow.View.ShowFormatChanges = True
ActiveDocument.ActiveWindow.View.ShowInsertionsAndDeletions = True
ActiveWindow.View.ShowComments = True
End Sub