Paste as Values shortcut

This is a handy VBA script that assignes a keyboard shortcut to Paste as Values action in MS Excel. We recommend to save this script within your Personal workbook, so it load every time you open your MS Excel.

Sub PasteValues()
'
' Paste Values Macro
' Macro created by Marek Husek
'
' Keyboard Shortcut: Ctrl+q
'

On Error GoTo ErrHandler:
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Exit Sub
ErrHandler:
    ' error handling code
MsgBox ("There is nothing to paste")
End Sub