Hi,
Would it be possible to delete cell contents based on the value of
that cell.

Eg if the cell contains anything EXCEPT "*IMPORTANT*" then the content
would be cleared.

Thanks,
Stuart

Dim LastRow As Long
Dim i As Long

With Activesheet

.Cells(.Rows.Count,"A").End(xlUp).Row
For i = LastRow To 1 Step -1

If Not .Cells(i, "A").Value Like "*IMPORTANT*" Then

.Rows(i).Delete
End If
Next i
End With

--
__________________________________
HTH

Bob

"Kryten" <Kryten68@googlemail.com> wrote in message
news:060162bc-9809-4393-b683-17e5b805a27b@d45g2000hsc.googlegroups.com...
> Hi,
> Would it be possible to delete cell contents based on the value of
> that cell.
>
> Eg if the cell contains anything EXCEPT "*IMPORTANT*" then the content
> would be cleared.
>
> Thanks,
> Stuart