One way...

Sub ClearStuff()
Dim rng As Range

For Each rng In Range("B4:BQ20")
If InStr(UCase(rng.Value), "RO") = 0 Then _
rng.ClearContents
Next rng
End Sub
--
HTH...

Jim Thomlinson


"Frank" wrote:

I am trying to write this into my current macro where I clear the cells that
don't contain the letters "RO" in the below range.

Range("B4:BQ20").Select

Any help is greatly appreciated. Thank you