Howdy Rajeevbhardwaj, hear's some code that may be of assistance, using a vba loop, no filters. Wasn't sure if you wanted to clear the contents or delete the cell... Change "Test" to your string of choice or a range, etc...<pre>
Sub del()
Dim c As Range
On Error GoTo 1
2: Set c = Cells.Find("Test", MatchCase:=False, _
lookat:=xlWhole, LookIn:=xlValues)
'change Delete Shift:=xlToLeft to ClearContents to _
leave cell placement in tact
c.Delete Shift:=xlToLeft 'Shift:=xlUp for up
GoTo 2
1: End Sub</pre><pre></pre>
Hope this helps.
_________________
Cheers,<font size=+2><font color="red"> Nate<font color="blue"> Oliver</font></font></font>
This message was edited by NateO on 2002-10-03 18:52