For a shortcut to Format Painter

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