Macro Clear Cell Contents

[Frank]

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

 

[Jim Thomlinson]

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

 

[Frank]

Jim, Thank you, it works well.

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