Custom VBA Dictionary

I have a report that has a column which has free flow text sentences that manually needs to be checked for key-words.

With over 15000 rows every month this is very time consuming so I have attempted to automate this by hard coding a 'Dictionary' using an array procedure.

Unfortunately this is not best practice but every time I try to change the Array reference to a range I recieve errors no matter what Dim statement I enter.

Code:


Sub WordVerification()

WordExceptionsRow = 2

Dim MyArray

'MyArray = Sheets("Sheet3").Range(WordRange)

MyArray = Array("Money", "Cash", "Pounds")
For i = LBound(MyArray) To UBound(MyArray)

Windows(YStatusIND).Activate
Workbooks(YStatusIND).Sheets(Y1StatusInd).Select

With Worksheets(Y1StatusInd).Range("R1:R18000")
Set C = .Find(MyArray(i), LookIn:=xlValues, Lookat:=xlPart, SearchOrder:=xlByColumns)
If Not C Is Nothing Then
FirstAddress = C.Address
Do
With C
C.Select
Selection.EntireRow.Copy Destination:=Workbooks(WStatusIND).Sheets("Word Verification").Cells(WordExceptionsRow, 1)
WordExceptionsRow = WordExceptionsRow + 1
End With
Set C = .FindNext(C)

Loop While Not C Is Nothing And C.Address <> FirstAddress
End If
End With
Next i
Windows(WStatusIND).Activate
Workbooks(WStatusIND).Sheets("Word Verification").Select
Cells.Select
Cells.EntireColumn.AutoFit
Range("A1").Select
CutCopyMode = False
End Sub