Application VisualBasic Script

Sub ClearCopyShortCut()
  Application.OnKey "^c"
End Sub