Macro Ppt a PDF por Diapositivas, Asignar nombre

¿Cómo estan?

Tengo una macro que me genera todas mis diapositivas a PDF.

Las diapositivas contienen diplomas, y yo quiero que cada pdf tenga el nombre de la persona del diploma.

La macro es la siguiente, y creo que solo me falta filtrar algunos textos,

Se las dejo a ver si me pueden dar una mano...

Sub ExportSlidesToIndividualPDF()
Dim oPPT As Presentation, oSlide As Slide
Dim sPath As String, sExt As String, sName As String
Set oPPT = ActivePresentation
sPath = oPPT.FullName
sExt = ".pdf"
For Each oSlide In oPPT.Slides
oSlide.Select
For Each objShp In oSlide.Shapes
If objShp.HasTextFrame Then
If objShp.TextFrame.HasText Then
//aca solo falta agrega un if para filtrar el texto q queremos
sName = objShp.TextFrame //aca falta asignar bien el valor
End If
End If
Next
oPPT.ExportAsFixedFormat _
Path:=sPath & sName & sExt, _
FixedFormatType:=ppFixedFormatTypePDF, _
RangeType:=ppPrintSelection
Next
Set oPPT = Nothing
End Sub