For Each Cell In ActiveSheet.Cells
If Cell = "total board" Or Cell = "total metal" Or Cell = "ITEM" _
Or IsNumeric(Cell) Or Cell.HasFormula _
Or IsError(Cell) Then
Cell.Delete
End If
Next Cell

thats whats in my code, and it was sent into what i thought was gonna be an
infinite loop (for some reason). my screen started flickering and and all the
values on the sheet turned to #N/A.

I appreciate your attempts to remedy this situation, but right now i just
figure it out.

"Jarek Kujawa" wrote:

For Each Cell In ActiveSheet.Cells

should do the trick