运行时错误13 - 类型不匹配

Question

我有以下代码。这里，newSearchText超过500个字符串。运行VBA宏时，我收到“运行时错误13 - 类型不匹配”。

            Set Rng = Cells.Find(What:=newSearchText, _
                              After:=.Cells(1), _
                            LookIn:=xlFormulas, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            matchcase:=matchvalue)

我该如何处理？