I'm copying data from one WB to another. When the value is copied to a
particular cell, that cell is always a negative currency value. Here is the
code I'm using to format the cell, what can I add to force any entry to be a
negative currency value?

Range("B85:B86").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Bold"
.NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
End With