Attribute VB_Name = "McRItchie_Paste"
Option Explicit


Sub PasteSpecialValues()   'assign macro to  Ctrl+SHIFT+V
Attribute PasteSpecialValues.VB_Description = "PasteSpecialValue -- paste only Values"
Attribute PasteSpecialValues.VB_ProcData.VB_Invoke_Func = "V\n14"
 On Error Resume Next
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
 If Err.number = 1004 Then
    MsgBox "Can't Paste Special Values from Empty Clipboard" _
      & Chr(10) & "or dimension of multiple cells does not" _
      & " match clipboard" _
      & Chr(10) & Err.number & " " & Err.Description
 ElseIf Err.number <> 0 Then
    MsgBox Err.number & " " & Err.Description
 End If
 Application.CutCopyMode = False
End Sub

Sub PasteSpecialFormats()   'assign macro to Ctrl+SHIFT+P
Attribute PasteSpecialFormats.VB_Description = "Paste Special Formats -- trying to simulate  Format Painter to best that I can"
Attribute PasteSpecialFormats.VB_ProcData.VB_Invoke_Func = "P\n14"
    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
   ' Application.CutCopyMode = False
End Sub