Sub ToolsProofing() 'SpellCheckDocumentClassic() Intercepts F7 keyboard shortcut 'Charles Kenyon 26 February 2019 If Application.Version < "16.0" Then Dialogs(wdDialogToolsSpellingAndGrammar).Show Else ActiveDocument.CheckGrammar End IfEnd Sub