Hi,

I can't think of the reason now. try to test on another workbook, and
the manual calculation mode, for example,

With Intersect(oColumnName, Range("rowProcessorCosts"))
MsgBox "Address: " & .Address(External:=True)
MsgBox "Protection: " & .Worksheet.ProtectContents
MsgBox "Calculation: " & Application.Calculation

.Copy
Workbooks.Add(xlWorksheet).Worksheets(1).Cells(1). PasteSpecial
Selection.Value = "N/A"
Selection.Borders(xlLeft).LineStyle = xlNone

Application.Calculation = xlCalculationManual

.Value = "N/A"
.Borders(xlLeft).LineStyle = xlNone

Application.Calculation = xlCalculationAutomatic

--
HTH,

okaizawa


Resume Next wrote:
I thought I would send this to the top one more time now that the
weekend is over. I could still use some ideas if anyone has any.

Thanks!

David