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