if iserror(Activesheet.Cells(i,1).value) then
' cell contains an error value


--
Regards,
Tom Ogilvy


wrote in message
ups.com...
dear all

i wrote a macro with a while clause, unfortunately there are also some
rows which have #REF! and I want to delete them as well. How do I do
it?

last= 2011
Do While IsNumeric(ActiveSheet.Cells(i, 1).Value) And
ActiveSheet.Cells(i, 1).Value last


Dirk