Hi Patrick
I copied the code and I couldn't get it to work. Could you give me the
exact code that I need to copy into the vba worksheet. Perhaps I am doing
something wrong. I appreciate all your help.

Thanks
JD


"PSKelligan" wrote in message
...
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