replace For..Next loop and use SpecialCells instead?

[pwl2706]

hi all,

is there a way to remove the For... Next loop in the below and do it with one step using SpecialCells

Sub clearCells()
Dim oCell As Range

Range("C1:C" & Range("A1").End(xlDown).Row).Formula = "=IF(OR(A:A=""+"",A:A=""-""),NA(),"""")"

ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Select

For Each oCell In Selection
    Range("A" & oCell.Row).Clear
Next

Range("A1").Select

End Sub

thanks for any ideas
Philip

 

[pwl2706]

I got it:

Range("A1").Worksheet.UsedRange.SpecialCells(xlCellTypeFormulas, xlErrors).Offset(0, -2).Clear