trying to creat a variant with the values in Range(Cells
(1), Cells(1, 9) so that I can run throught another range
and flage matches. Can't seem to get the variant to
work. Thanks!!!

Dim vAGYBOOKS As Variant
Dim vGOVBOOKS As Variant
Dim vGRRBOOKS As Variant
Dim i As Integer
Dim r As Integer


cGOVBOOKS = Array(Range(Cells(1), Cells(1, 9)))

For i = r To 1 Step -1
Debug.Print Cells(i, 4).Formula
If Not IsError(Application.Match(Cells(i,
4).Formula, cGOVBOOKS, 0)) Then
Cells(i, 3) = "GOVTS"
End If
Next i


End Sub