Copy format of a referenced cell

[Mike]

I have code that sets the value of a cell to a referenced cell whose
name is in FilterAttributeName.

Workbooks(WorkWkb).Worksheets("work").Cells(TargetRow, "E").Formula = _
"=" & FilterAttributeName

I now want Cells(TargetRow, "E") to have the same format as the
referenced cell. What is the easiest way to do this?

--Thank you,
--Mike Jr.