I have a code that clears data in a cell not containing the word (Worknotes). However, for 240 rows of data the code ran for an hour. Please assist on how to reduce the time to process as I am looking at using this for a much larger set of data.
Sub ClearCells()
Dim rng As Range
Dim cell As Range
Dim ContainWord As String
Set rng = Range("N2:AJT240")
ContainWord = "(Work notes)"
For Each cell In rng.Cells
If cell.Find(ContainWord) Is Nothing Then cell.Clear
Next cell
End Sub