Sub VisibleTrackOff4()
' Paul Beverley - Version 27.10.17
' Visible trackchange reminder - yellow background

ActiveDocument.TrackRevisions = Not ActiveDocument.TrackRevisions
If ActiveDocument.TrackRevisions = False Then _
     myColour = 200 Else myColour = 255
  ActiveDocument.ActiveWindow.View.DisplayBackgrounds = True
With ActiveDocument.Background.Fill
  .ForeColor.RGB = RGB(255, 255, myColour)
  .Visible = msoTrue
  .Solid
End With
End Sub