View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
PSKelligan PSKelligan is offline
external usenet poster
 
Posts: 19
Default Macro to create format painter

Hi JD,
I recorded this and if you copy (ctrl+c) and use this code, it will paste
the formatting only to the active range of cells. To get the ctrl+m added
just record a macro in your personal macro workbook and set the shortcut key
to ctrl+m and then paste the body of my code to the macro.

Code:
Sub PasteFormating()
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub
Hope this helps,

Patrick