Formula errors solution

[Ashley Frank]

Dim CurrentCell As Object, NextCell As Object
ActiveWorkbook.Sheets("Sheet1").Select
Set CurrentCell = Range("A7")
Do Until IsEmpty(CurrentCell)
Set NextCell = CurrentCell.Offset(1, 0)
CurrentCell.EntireRow.Select
For Each CELL In Selection
If IsError(CELL) Then
CELL.ClearContents
Else
End If
Next
Set CurrentCell = NextCell
Loo

 

[Bernie Deitrick]

Ashley,

No need to loop:

Sub Macro1()
On Error Resume Next
Range("A7:IV65536").SpecialCells(xlCellTypeFormulas, 16).ClearContents
Range("A7:IV65536").SpecialCells(xlCellTypeConstants, 16).ClearContents
End Sub

HTH,
Bernie
MS Excel MVP


"Ashley Frank" <[email protected]>
wrote in message
news:[email protected]...

 

[Ashley Frank]

Bernie,

A neat solution - far better. I only posted this I had this problem
last year and thought that it may be useful

Thanks

ashley