Attribute VB_Name = "PasteValues"
Sub IncollaValori()
Attribute IncollaValori.VB_Description = "Press CTRL + SHIFT + V to paste values in the selected cell. More on http://www.LeanSolutions.it "
Attribute IncollaValori.VB_ProcData.VB_Invoke_Func = "V\n14"
'
' PasteValues Macro
' This macro execute the "paste special ==> values" into the selected cell. Just press CTRL + SHIFT +V.
' Copyright LeanSolutions 2011, all right reserved.
' For infos and others visit http://www.LeanSolutions.it
' Questa macro esegue la funzione "incolla speciale ==> valori" nella cella selezionata. Basta premere CTRL + SHIFT + V.
' Copyright LeanSolutions 2011, tutti i diritti riservati.
' Per informazioni e molto altro ancora visita http://www.LeanSolutions.it
'
' Scelta rapida da tastiera: CTRL+MAIUSC+V
'
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub