Thread: How to get a short cut for paste as values in a macro - Excel 2010

Hello there,

I am trying to use a macro to have a short cut ( CTR + Q ) for PASTE AS VALUES on Excel 2010.
can someone please tell me what the code it will be?

Thanks a lot!

Giannina

Here are several keyboard shortcut macros I keep in my personal.xlsb file.

Sub CtracrossSlctn()
'
' CtracrossSlctn Macro
'

'
    With Selection
        .HorizontalAlignment = xlCenterAcrossSelection
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
    End With
End Sub

Sub PasteSpecialColumnWidths()
'
' PasteSpecialColumnWidths Macro
' Created by Francis Hayes (The Excel Addict)
' www.TheExcelAddict.com
'
' Keyboard Shortcut: Ctrl+Shift+W
'
    On Error Resume Next
    Selection.PasteSpecial Paste:=xlPasteColumnWidths
End Sub

Sub PasteSpecialFormats()
'
' PasteSpecialFormats Macro
' Created by Francis Hayes (The Excel Addict)
' www.TheExcelAddict.com
'
' Keyboard Shortcut: Ctrl+Shift+M
'
    On Error Resume Next
    Selection.PasteSpecial Paste:=xlPasteFormats
End Sub

Sub PasteSpecialFormulas()
'
' PasteSpecialFormulas Macro
' Created by Francis Hayes (The Excel Addict)
' www.TheExcelAddict.com
'
' Keyboard Shortcut: Ctrl+Shift+F
'
    On Error Resume Next
    Selection.PasteSpecial Paste:=xlPasteFormulas
End Sub


Sub PasteSpecialValues()
'
' PasteSpecialValues Macro
' Created by Francis Hayes (The Excel Addict)
' www.TheExcelAddict.com
'
' Keyboard Shortcut: Ctrl+Shift+V
'
    On Error Resume Next
    Selection.PasteSpecial Paste:=xlPasteValues
End Sub

Sub MyZoomIn()

'Keyboard Shortcut: Ctrl+Shift+I

   Dim ZP As Integer
   ZP = Int(ActiveWindow.Zoom * 1.1)
   If ZP > 400 Then ZP = 400
   ActiveWindow.Zoom = ZP
End Sub

Sub MyZoomOut()

'Keyboard Shortcut: Ctrl+Shift+O

   Dim ZP As Integer
   ZP = Int(ActiveWindow.Zoom * 0.9)
   If ZP < 10 Then ZP = 10
   ActiveWindow.Zoom = ZP
End Sub