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

--
Ashley Fran
-----------------------------------------------------------------------
Ashley Frank's Profile: http://www.excelforum.com/member.php...fo&userid=2648
View this thread: http://www.excelforum.com/showthread.php?threadid=39755

Ashley,

No need to loop:

Sub Macro1()
On Error Resume Next
Range("A7:IV65536").SpecialCells(xlCellTypeFormula s, 16).ClearContents
Range("A7:IV65536").SpecialCells(xlCellTypeConstan ts, 16).ClearContents
End Sub

HTH,
Bernie
MS Excel MVP


"Ashley Frank"
wrote in message
news:Ashley.Frank.1u3zqd_1124618721.0532@excelforu m-nospam.com...

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

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


--
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