Sub clicked_shape(oshp As Shape) MsgBox "Shape:= " & oshp.Name & " Slide #=" & oshp.Parent.SlideIndex End Sub