I already did this search function with LOOP using FOR in the Matrix.
Just enter the word to be found and the table where the search will be performed.
Function LoopNaTabela(palavra As String, Tb)
Dim Dimenssao As Byte, i As Long, j As LongOn Error Resume Next
If IsError(UBound(Tb, 2)) Then Dimensao = 1 Else Dimensao = 2
On Error GoTo 0
Select Case Dimensao
Case 2
For i = LBound(Tb, 1) To UBound(Tb, 1)
For j = LBound(Tb, 2) To UBound(Tb, 2)
If Tb(i, j) = palavra Then LoopNaTabela = True: Exit Function
Next j
Next i
End Select
End Function
In this format it will go through the entire matrix in search of the specific word, I have never had performance problems with it.
If you'd like to try other ways, at this link: Check word
It has plenty of content and example on the theme