"match" based on a name range - vba array - large data set

[yolanno]

Hello everyone,

I am new to this forum but I already have read a lot. Thank you for all the good work!

VoilÃ*, I am not used to Arrays and I think it would spare me a lot of time calculations.

I am trying to summarise informations based on a large dataset (265'000 +). To do that, I check if the Postal Code is my Name Range (dynamic name range) with a Isnumber(match()). It takes time and I have to work with other calculations after that so it will take even more time (countifs, sumifs, to compile the data based on my interest= name range)

Informations
- Filter on Sheet 1 Define 1 person
- Dynamic range based on filter in sheet 2 -> 1 person owns specific postal codes

 =OFFSET(Sheet2!$B$2;0;0;COUNTA(Sheet2!$B$2:$B$14)-COUNTBLANK(Sheet2!$B$2:$B$14);1)

- Sheet 3 (Area1 = Namerange 1, area2 name range2, area3 = name range3)

=ISNUMBER(MATCH(CP1;AREA1;0))

CP	Sales	AREA1	AREA2	AREA3
1007	136	FALSE	FALSE	TRUE
1008	832	FALSE	FALSE	FALSE
1009	729	FALSE	FALSE	FALSE
1010	4	FALSE	FALSE	TRUE
1011	7064	TRUE	FALSE	FALSE
1012	45454	FALSE	FALSE	FALSE
1019	212	FALSE	TRUE	FALSE
1020	6	FALSE	FALSE	FALSE
1030	2496	FALSE	FALSE	FALSE

<tbody>
</tbody>

So, I have found some snippet code to help me but I cannot get it to work

Public Function IsInArray(valToBeFound As Variant, arr As Variant) As Boolean
'DEVELOPER: Ryan Wells (wellsr.com)
'DESCRIPTION: Function to check if a value is in an array of values
'INPUT: Pass the function a value to search for and an array of values of any data type.
'OUTPUT: True if is in array, false otherwise
Dim element As Variant
On Error GoTo IsInArrayError: 'array is empty
    For Each element In arr
        If element = valToBeFound Then
            IsInArray = True
            Exit Function
        End If
    Next element
Exit Function
IsInArrayError:
On Error GoTo 0
IsInArray = False
End Function

Sub Demo()
Dim arr(2) As String
Dim i As Integer
arr(0) = "100"
arr(1) = "50"
arr(2) = "2"
i = 2
MsgBox IsInArray(CStr(i), arr)
End Sub

I would like to put "arr" as my array CP in sheet3 and "i" as my array AREA1 in sheet2. And I would like to return 1 or 0 (or true or false, whatever) in column 'AREA1" in sheet3.

I have made all different modifications but cannot get through.

I would really appreciate your help!

Thank you all for reading.

Belle journée,