Set a shortcut key for "Copy Format"

[smallxyz]

Hi,

Is there a way to set a shortcut key for "Copy Format" ?
Or use VBA to imitate the usual mouse-click / mouse-double-click function of "Copy Format"


Thanks a lot!

 

[James006]

Re: [VBA] Set a shortcut key for "Copy Format"

For a shortcut to Format Painter

Sub PasteSpecialFormats()
If Application.CutCopyMode = False Then
   Beep
   MsgBox "No formatting in Clipboard"
Else
   Selection.PasteSpecial Paste:=xlFormats
End If
End Sub