The format painter does a copy, paste special formats, so you can use the
standard copy short cut of <Ctrl + C and then record a macro the does an
EDIT/PASTE SPECIAL/FORMATS and assign the macro to a shortcut key.

Or you can place the following line of code in a module and assign it the
short cut key:

Sub PasteFormats()

Selection.PasteSpecial Paste:=xlPasteFormats, _
Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False
End Sub

--
Kevin Backmann


"jmcclain" wrote:

Is there a way to create a custom keyboard shortcut?

I would like to prevent having to use the mouse to select the formatting
paintbrush.

Any help is appreciated.