Paste Special short cut not working?

If you have run some unwanted code and some copy related functions not working properly, this you can enable it by just running this code….

 

Sub EnableCopyCutAndPaste()

EnableControl 21, True ' cut

EnableControl 19, True ' copy

EnableControl 22, True ' paste

EnableControl 755, True ' pastespecial

Application.OnKey "^c"

Application.OnKey "^v"

Application.OnKey "+{DEL}"

Application.OnKey "+{INSERT}"

Application.CellDragAndDrop = True

Application.OnDoubleClick = ""

CommandBars("ToolBar List").Enabled = True

End Sub

 

<source “Mr.Excel”>