Hi All........

This code works fine for a text string as "oldest", but I want it to work if
the cell value is #VALUE! (basically, clear or delete the row is the #VALUE!
error is found)

Dim oldest As String
oldest = Range("data!k1").Value 'value is a text string
With Sheets("ALL12")
lastrow = .Cells(.Rows.Count, "a").End(xlUp).Row
For r = lastrow To 12 Step -1

If .Cells(r, "b").Value Like oldest Then
.Rows(r).EntireRow.ClearContents
End If
Next r
End With

Any help would be much appreciated.......

Vaya con Dios,
Chuck

Try

If .Cells(r, "b").Text = "#VALUE!" Then

--
Jacob


"clr" wrote:

Hi All........

This code works fine for a text string as "oldest", but I want it to work if
the cell value is #VALUE! (basically, clear or delete the row is the #VALUE!
error is found)

Dim oldest As String
oldest = Range("data!k1").Value 'value is a text string
With Sheets("ALL12")
lastrow = .Cells(.Rows.Count, "a").End(xlUp).Row
For r = lastrow To 12 Step -1

If .Cells(r, "b").Value Like oldest Then
.Rows(r).EntireRow.ClearContents
End If
Next r
End With

Any help would be much appreciated.......

Vaya con Dios,
Chuck


.

How cool it is!..........works perfect!
You are a Prince, kind Sir...........thank you very much.

Vaya con Dios,
Chuck, CABGx3




"Jacob Skaria" wrote in message
...
Try

If .Cells(r, "b").Text = "#VALUE!" Then

--
Jacob


"clr" wrote:

Hi All........

This code works fine for a text string as "oldest", but I want it to work
if
the cell value is #VALUE! (basically, clear or delete the row is the
#VALUE!
error is found)

Dim oldest As String
oldest = Range("data!k1").Value 'value is a text string
With Sheets("ALL12")
lastrow = .Cells(.Rows.Count, "a").End(xlUp).Row
For r = lastrow To 12 Step -1

If .Cells(r, "b").Value Like oldest Then
.Rows(r).EntireRow.ClearContents
End If
Next r
End With

Any help would be much appreciated.......

Vaya con Dios,
Chuck


.