checking for value in array getting error message

i have an array and after it gets populated im trying to check if it contains a certain text. the array and certain text are dynamic and will be different every time i run the code. i found a function code that looks like it should work but i get a 'type mismatch' error when it runs through the function

as below

Sub newtest()
Dim today As Date
Dim ystrday As Date
Dim twodays As Date
Dim top As String
Dim bot As String
Dim home As String
Dim away As String
home = Workbooks("CHL Schedule.xlsm").Sheets(3).Range("W2")
away = Workbooks("CHL Schedule.xlsm").Sheets(3).Range("V2")
today = Workbooks("CHL Schedule.xlsm").Sheets(1).Range("B404").End(xlUp).Offset(1, -1)
If today = "01/10/2002" Then
    ystrday = today
    twodays = today
Else
    If today = "02/10/2002" Then
        ystrday = today - 1
        twodays = today
    Else
        ystrday = today - 1
        twodays = today - 2
    End If
End If
top = Workbooks("CHL Schedule.xlsm").Sheets(1).Range("A:A").Find(today).Address(False, False)
bot = Workbooks("CHL Schedule.xlsm").Sheets(1).Range("A:A").Find(today, after:=Cells(3, 1), searchDirection:=xlPrevious).Address(False, False)
Dim Arrtoday() As Variant
Arrtoday = Range(Workbooks("CHL Schedule.xlsm").Sheets(1).Range(top).Offset(0, 1), Workbooks("CHL Schedule.xlsm").Sheets(1).Range(bot).Offset(0, 2))
Dim R As Long
Dim C As Long
For R = 1 To UBound(Arrtoday, 1)
    For C = 1 To UBound(Arrtoday, 2)
        Debug.Print Arrtoday(R, C)
    Next C
Next R
If IsInArray(home, Arrtoday) or IsInArray(away, Arrtoday) Then
    'some code
Else
    'some more code
End If
End Sub

Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean
  IsInArray = (UBound(Filter(arr, stringToBeFound)) > -1)
End Function

i get the error code on this line:

IsInArray = (UBound(Filter(arr, stringToBeFound)) > -1)

all i want to do is check to see if the array contains what home or away is and depending on if it is or not 2 different things will happen

if anyone can see where im going wrong or if im missing something any help would be appreciated.

thanks

thanks for the reply Leith

however, i changed the code as per your suggestion and i still receive the 'type mismatch' error at the same line

If you store the data in the array variable from the range, it will be 2D array, no exception.
Filter function only works with single D array, so the error....

ok well it does have multiple rows and columns so i will work on a loop. i found one that i may be able to adjust for what i need

thanks

aha! thanks for that jindon

i see, so what would i use for a 2d array?

Either simple loop through the array or convert 2D array to a single D array only if the array does not have multiple rows and columns.

To covert 2D array to single D array from the data that has one column with multiple rows

Application.Transpose(ArrToday)

Else single row with multiple columns

Application.Transpose(Application.Transpose(ArrToday))

will do, may take me a little while to work it out but i will

thanks again

No problem.

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.

ok

the loop seems to be working pretty well so far. my end goal is a little more complicated than my original post but so far i like it

Thanks.

I also really prefer the loop because Filter function will pick up partial match, so it may not be the expected result, however you could still convert part of 2D array to a single D array using Index Function....