try the following code....:) ' Appends a shortcut key to the caption of a menu item. Public Sub AddMenuShortcut(Menu As Menu, Shortcut As String) Menu.Caption = Menu.Caption & vbTab & Shortcut End Sub This code fragment adds shortcut keys to commands on the Edit menu: Private Sub Form_Load() AddMenuShortcut mnuEditUndo, "Ctrl+Z" AddMenuShortcut mnuEditCut, "Ctrl+X" AddMenuShortcut mnuEditCopy, "Ctrl+C" AddMenuShortcut mnuEditPaste, "Ctrl+V" AddMenuShortcut mnuEditDelete, "Del" End Sub FAILURE is the first step towards SUCCESS