macro that deletes certain results

[dfrank]

I am making a macro that deletes #N/A's, but i want to add a few things to it
that should be deleted:

the phrases "total board", "total metal" and "Item", and any non-text (i.e. any
number) that appears.

this is what i have so far:

Public Sub DeleteStuff()
  Cells.SpecialCells(xlCellTypeFormulas, xlErrors).Delete
End Sub

what do i add to meet my specifications? Any help is greatly appreciated.

[shg]

Please read our Forum Rules about thread titles, and then edit your thread title to be descriptive of your problem.

[dfrank]

For Each cell In Selection
    If cell = ""total board" or cell = "total metal" _
    or IsNumeric(cell)  or cell.HasFormula _
    or IsError(Cell) Then
    cell.Delete
    End If
Next cell

I was given this code from a guy somewhere else, but it doesnt work and he dissapeared.

i basically want to delete the phrases "total board", "total metal" and "Item", and any number.

also, this is supposed to pertain to the entire worksheet, so i think his 'Selection' part of the code is not correct.

any help?

[shg]

Assuming that otherwise does what you want, then maybe like this:

Sub x()
    Dim cell    As Excel.Range

    For Each cell In ActiveSheet.UsedRange
        With cell
            If .Value = "total board" Or _
               .Value = "total metal" Or _
               IsNumeric(.Value) Or _
               .HasFormula _
               Or IsError(.Value) Then
                .Delete shift:=xlUp
            End If
        End With
    Next cell
End Sub

[dfrank]

appreciate the response, but i get an error doing this. here is what i have:
\1
[URL=http://g.imageshack.us/g.php?h=389&i=midstep1hy0.jpg[/URL]

here is what happens when i use the code provided:

\1
\1 do not click second link. it is nothing.
i get an mismatch error 13.

any idea on how to fix this?

[shg]

Try this. If it doesn't work, please post a workbook with the code in it.

Sub x()
    Dim cell    As Excel.Range
    
    On Error Resume Next
    ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas).Delete shift:=xlUp
    ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, xlNumbers).Delete shift:=xlUp
    On Error GoTo 0

    For Each cell In ActiveSheet.UsedRange
        With cell
            If .Value = "total board" Or _
               .Value = "total metal" Then
                .Delete shift:=xlUp
            End If
        End With
    Next cell
End Sub