Sub shape() With ActivePresentation.Slides(1).Shapes(1).TextFrame If .HasText = msoTrue Then MsgBox .TextRange.Text End With End Sub