I've written the following Macro and put it in my Normal Module1 (and tried it in my Normal ThisDocument)

Sub MarkupToggle() ' MarkupToggle Macro
'MsgBox "MarkupToggle called"
With ActiveWindow.View
.ShowRevisionsAndComments = Not .ShowRevisionsAndComments
.RevisionsView = wdRevisionsViewFinal
End With
End Sub

I've tried assigning a keystroke to the macro:


With Application
.CustomizationContext = NormalTemplate
With .KeyBindings
.Add KeyCode:=BuildKeyCode(Arg1:=wdKeyAlt, Arg2:=wdKeyM), KeyCategory:=wdKeyCategoryCommand, Command:="MarkupToggle"
.Add KeyCode:=BuildKeyCode(Arg1:=wdKeyCommand, Arg2:=wdKeyG), KeyCategory:=wdKeyCategoryCommand, Command:="SaveTextForGit"
End With
End With

But pressing Alt+M doesn't run the macro.
Many other macros that I've created work fine with similar keystrokes.
What could be wrong?