Problema con funzione FindReplace vba excel macro

Il debug mi dà errore alla terza riga.. Non capisco cosa sbaglio anche perché sono nuovo in questo linguaggio.
Devo cercare in un file PowerPoint la parola "tests" e cambiarla in "test".

  
Sub FindReplace()
Dim sld As Slide
Set sld = ActivePresentation.Slides(1)
Dim shp As Shape
For Each shp In sld.Shapes
If shp.HasTextFrame Then
    If shp.TextFrame.HasText Then
        shp.TextFrame.TextRange.Text = Replace(shp.TextFrame.TextRange.Text, "tests", "test")
    End If
End If
Next shp
End Sub