macro that finds variables in one column and enters values if variables found

I'm trying to make a simple macro that searches through a worksheet (if possible a whole workbook) for a long list of words.
To make it simple let's say the words are:
cat
dog
wombat

For simplicity's sake let's say it would be searching column A.

If any of the words are found in column A, the word "check" will be placed column B in the same row it was found in.

I had found <a href="http://www.ozgrid.com/VBA/find-method.htm">this</a> and thought it may be a starting point for this code.

Not sure how to proceed, I'm willing to explain further details or even pay for this!

If you are willing to explain further, why no offer up the information in your initial request?
How are you planning on supplying the list of words to the macro? Are they contained in a list in the workbook? Are they to be hard coded in the macro itself?

By "further information" all that I meant was that I may not have been totally clear in my initial post, and I suppose I wasn't =[ .
I think hardcoding the list of words into the macro would be the easiest, if I ever needed to add or subtract words I could do that in the code. It would also be better as I would like to run this macro in other workbooks as well.

Any help anyone can provide is greatly appreciated, even just a direction, functions to look into, etc...

Both of the following assume you have a header row and that you want to loop through allw sheets in the workbook.

This version allows you to hard code the text into the array:

Sub findAll2()
    Dim i As Long, j As Long, wList As Variant, curSht As Worksheet, x As Integer
    Dim sh As Integer
wList = Array("a", "b", "c") 'change to your search list
    
For sh = 1 To Worksheets.Count
Set curSht = Worksheets(sh)
    j = 2
    Do Until curSht.Cells(j, 1) = ""
    On Error Resume Next
        If Not Application.WorksheetFunction.Match(curSht.Cells(j, 1), wList, 0) = xlErrNA Then
            If Err.Number <> 1004 Then
                curSht.Cells(j, 2) = "Check"
            End If
        End If

       j = j + 1
    Loop
Next
    
End Sub

This version takes a list from column H and creates a range from the list to be used in the search:

Option Explicit
Sub findAll()
    Dim i As Long, j As Long, wList As Range, curSht As Worksheet, x As Integer
    Dim sh As Integer
    i = 2
    Do Until Cells(i, 8) = ""
        If x = 0 Then
           Set wList = Cells(i, 8)
            x = 1
        Else
            Set wList = Union(wList, Cells(i, 8))
        End If
        i = i + 1
    Loop


    
For sh = 1 To Worksheets.Count
Set curSht = Worksheets(sh)
    j = 2
    Do Until curSht.Cells(j, 1) = ""
    On Error Resume Next
        If Not Application.WorksheetFunction.Match(curSht.Cells(j, 1), wList, 0) = xlErrNA Then
            If Err.Number <> 1004 Then
                curSht.Cells(j, 2) = "Check"
            End If
        End If

       j = j + 1
    Loop
Next
    
End Sub

Thank you so much! I will test it out tomorrow.

mdbct, it works! is there any way i can donate to you? do you have a paypal acct? you may pm me