Sub TrackOnOffVisibleMac()
' Paul Beverley - Version 20.02.24
' Switches tracking on/off with visible background

myColNumber = 200
myColour = RGB(255, 255, myColNumber)

Set rng = ActiveDocument.Content
If ActiveDocument.TrackRevisions = False Then
  ActiveDocument.Styles(wdStyleNormal).ParagraphFormat.Shading.BackgroundPatternColor _
        = wdColorAutomatic
  rng.Font.Shading.BackgroundPatternColor = wdColorAutomatic
  ActiveDocument.TrackRevisions = True
  Beep
Else
  ActiveDocument.TrackRevisions = False
  ActiveDocument.Styles(wdStyleNormal).ParagraphFormat.Shading.BackgroundPatternColor _
       = myColour
  Beep
  myTime = Timer
  Do
  Loop Until Timer > myTime + 0.2
  Beep
End If
End Sub