Find & Delete

M

Mike

Hi. I am trying to create a macro that will search a
spreadsheet for a certain string. For each cell that
contains this string, I would like to delete the contents
of the cell.

For instance, if the string were "msn.com", I would
expect the following text strings to be found and the
cell values set to be null: [email protected],
[email protected], and [email protected].

Any suggestions?

Thanks,
Mike.
 
F

Frank Kabel

Hi Mike
try the following:

Sub find_delete()
Dim rng As Range
Dim cell As Range
Application.ScreenUpdating = False
Set rng = Selection
For Each cell In rng
If InStr(cell.Value, "msn.com") Then
cell.ClearContents
End If
Next
Application.ScreenUpdating = True
End Sub


Deletes all cells with the string 'msn.com' within your selection
 
T

Tom Ogilvy

Sub tester3()
Dim rng As Range
Set rng = Cells.Find(What:="msn.com", _
LookIn:=xlValues, LookAt:=xlPart)
If Not rng Is Nothing Then
Do
rng.ClearContents
Set rng = Cells.FindNext(rng)
Loop While Not rng Is Nothing
End If

End Sub
 
Top