Public Sub HowManyShapes()
	Dim SR As TableOfFiguresRange
	Dim SH As TableOfFigures
	Set SR = Selection.ShapeRange
	For Each SH In SR
		Debug.Print SH.Name
	Next SH
	Debug.Print Selection.ShapeRange.Count
End Sub