[SOLVED] Macro: Format Painter Button

Hello,

Eventually once I get this macro working I will assign it to a button:

I am trying to create a macro that will reference D5 and copy and paste the formatting from D5 to my initial active cell. For some reason the Macro fails when I get to "Range("InProgress").Activate", but I had already Set the ActiveCell as "InProgress" so it should be able to reference it when activating it. Any thoughts? Thank you


Sub InProgress()
Dim InProgress As Range

Set InProgress = ActiveCell
Range("D5").Select
Selection.Copy
Range("InProgress").Activate
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlxiNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub