' Select Multiple Shapes - Optional False is to extend the current selection to include any previously selected objects and the specified object ActiveWindow.Selection.SlideRange.Shapes.Range("text box 1","text box 1").Select ActiveWindow.Selection.SlideRange.Shapes.Range("text box 1","text box 1").Select False