Sub CustomKeys() ' Paul Beverley - Version 03.02.10 ' Open the Customize Keyboard dialogue box With Dialogs(wdDialogToolsCustomizeKeyboard) .Category = 2 .Show End With End Sub