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
Loop

[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]...
>
> 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
> Loop
>
>
> --
> Ashley Frank
> ------------------------------------------------------------------------
> Ashley Frank's Profile:
> http://www.excelforum.com/member.php...o&userid=26488
> View this thread: http://www.excelforum.com/showthread...hreadid=397552
>

[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