Erreur d'exécution 13 – Type d'incompatibilité

J'ai le code suivant. Ici, newSearchText contient plus de 500 caractères. Je reçois 'Runtime error 13 – Type Mismatch' lorsque je lance une macro VBA.

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

Comment puis-je le gérer?