LOCALIZAR SLIDE POR TEXTO

[fcwa]

Bom dia a todos, tenho uma apresentação de 3800 slides tenho um sistema que você consegue localizar eles pelo número digitado!
Porém, estou atualizando ele e colocando a função de localizar pelo texto e gostaria da ajuda de vocês! 

Existe por exemplo o "View.Goto" onde vou definir a INDEX do slide, então talvez vocês possam me ajudar no algoritmo em que localiza a palavra e retorna a posição do slide que ela se encontra.

O seguinte código que peguei no fórum da microsoft, ele até localiza a palavra, é fácil entender ele, mas ele não vai para o slidee nem retorna nada, mas faz praticamente tudo que estou precisando.

For Each sld In Application.ActivePresentation.Slides
    For Each shp In sld.Shapes
        If shp.HasTextFrame Then
            Set txtRng = shp.TextFrame.TextRange
            Set foundText = txtRng.Find(FindWhat:="CompanyX")
            Do While Not (foundText Is Nothing)
                With foundText
                    .Font.Bold = True
                    Set foundText = _
                        txtRng.Find(FindWhat:="CompanyX", _
                        After:=.Start + .Length - 1)
               End With
            Loop
        End If
    Next
Next

Nesse código, ele vai passar por todos os meus slides procurando pela palavra "Company" e formatando ela para NEGRITO, beleza, ele trabalha com a função "FIND" que localiza, mas resumindo o que preciso é: 

Localizar por um texto e ir até aquele slide!

desde já, agradeço a todos.