Macro - find cells row by row, clear contents if certain value in cells

Hi all,

I am new to the whole "programming" in Excel and have actually discovered a whole new universe of possibilities . What I need to do is this:

1. Sheet 1, cells from A1 to, say, G100 are filled with various numbers (integers) from 1 to 200; some of them repeat more times, they are in no particular order
2. I wish to find all the cells that have values of for example: 3 OR 56 OR 143
3. finally, I wish to clear contents of these cells (not delete cells, just leave them empty)

I normally use "ready made" command from within Excel to do this (Ctrl+H which brings up Find&Replace) but that way I need to do it number by number/string by string. It would be great if I could input "xx AND xx AND xx..." in the Find fied but that isn't possible as far as I know. Also, does anything change if cells aren't filled with integers but with strings such as: "768x90", "978x90", "300x600", .....?

Simple explanations if possible please I'm also trying to learn as much as possible along the way, not just solve a one off problem.

Many thanks,
Alex

This should start you off

Sub x()
  
Dim rFind As Range, v, i As Long
 
v = Array(3, 56, 143)

With Range("A1:G100")
    For i = LBound(v) To UBound(v)
        Set rFind = .Find(What:=v(i), LookIn:=xlFormulas, LookAt:=xlWhole, _
                          MatchCase:=False, SearchFormat:=False)
        If Not rFind Is Nothing Then
            Do
                rFind.ClearContents
                Set rFind = .FindNext(rFind)
            Loop Until rFind Is Nothing
        End If
        Set rFind = Nothing
    Next i
End With
     
End Sub

Thanks all! These both seem to work, now I'm going to investigate a bit and try to break these down.