Solved: Search for word and delete text

[crmpicco]

I have a MS Excel spreadsheet.

Is there any code that will search for 'Instant Purchase' then clear that cell?

TIA.

Picco

[Bob Phillips]

I have a MS Excel spreadsheet.

Is there any code that will search for 'Instant Purchase' then clear that cell?

TIA.

Picco

[vba]
Dim cell As Range
Set cell = ActiveSheet.UsedRange.Find("Instant Purchase")
If Not cell Is Nothing Then
cell.ClearContents
End If
[/vba]