Sub text() MsgBox ActivePresentation.Slides(1).Shapes(1).TextFrame _ .TextRange.Words(Start:=2, Length:=4) End Sub